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Le chemin des écoliers, tel est souvent le pas- 
sage par le Bureau. Pour changer d’application, il suffit 
aujourd’hui d’appeler l'accessoire “Raccourci”. Après avoir 
confirmé votre intention de quitter le programme en cours, 
une fenêtre de sélection apparaît et un simple double-clic 
vous fait passer de Basic à ScreenMaker, de MacPaint à 
Multiplan et, pourquoi pas, de MacForth à MacPoker… 


Des avantages : 


Sur un 128 Ko, re pas passer par le Finder c'est 
éviter des manipulations gourmandes en temps et 
en patience. 

Sur un 512 Ko, les applications disposent de toute la 
place mémoire. 

Sur un Mac Plus, tes changements sont quasi- 
instantanés et les 768 Ko de mémoire cache sont 
disponibles. 

Compatible avec Switcher : vous pourrez 
changer l’une ou l’autre des applications gérées par 
Switcher directement par cet accessoire. 

Compatible disques durs : même si votre dis- 
que dur est partagé via AppleTalk.… 

Disponible à tout moment, “Raccourci” est toujours 
utilisable car il ne nécessite pas une installation 
préalable des applications (sait-on toujours à 
l'avance quelles applications seront nécessaires à 
un travail donné ?). 


Avec Pom’s, travaillez directement ! 


Disquette “Raccourci” - 200,00 F franco - Bon de commande page 74 -©Éditions ME V 
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Diversité 


Voici donc ci-contre les résultats 
chiffrés de notre récent sondage. Les 
730 lecteurs qui nous ont répondu ne 
permettent pas de tirer une valeur 
représentative (au sens statistique) de 
ces chiffres ; nous en tirons bien en- 
tendu une tendance, confortée par le 
fait que les résultats sont similaires à 
ceux de l’an passé. 


Toujours aussi peu de femmes - 
1,9 % des bulletins — lisent Pom’s. 
Cela correspondrait-il à la proportion 
de femmes qui s'intéressent à l’in- 
formatique ? Notons toutefois que 
nos ‘auteuses” se font aussi prolifi- 
ques et assidues que nos auteurs. 
Parmi nos lecteurs, 14 % ont un 
Macintosh, 91,8 % ont un Apple ]{, 
6,03 % ayant les deux appareils. La 
répartition à l’intérieur de la famille 
Apple ][ totalise plus de 100 %, cer- 
tains ayant deux appareils de ce type, 
un lecteur sur deux y consacrant 
entre 3 et 8 heures chaque semaine. 
Dans les grandes tendances, il faut 
aussi remarquer que 58 % des pos- 
sesseurs d'Apple // ont une carte 80 
colonnes étendue et 45 % utilisent 
régulièrement ProDOS, ce dernier 
point s’accompagnant de la diminu- 
tion des ][+ au profit des //e. 

Un lecteur sur trois possède une 
souris Apple //, ce qui nous ouvre de 
nouveaux horizons pour la variété 
des programmes que nous vous 
proposerons. 

Moins de débutants, plus de lecteurs 
de niveau intermédiaire et 
d'amateurs avertis : y sommes-nous 
pour quelque chose ? 


Au-delà de la simple mise à plat des 
chiffres, ce type d'enquête nous 
permet, par vos remarques (non 
quantifiables) de mieux orienter la 
revue. Bien sür, la diversité des 
réponses nous laisse parfois dans une 
indécision proche de la perplexité 
mais nous savons rester à l'écoute : 
un lecteur nous a suggéré de mettre 
les sources assembleur en format 
TEXT sur la disquette pour que 
chacun puisse le charger : chose faite 
dès le numéro 24, 





Î -de 15: 2,5 : Basic : 98,4 Î DOS : 66,0 | ImagelUriter : 54,2 
E 15-19: 5,2; Pascal: 32,6 | ProDOS : 45,4 : Imagellriter// : 10,4 : 
l«20=24211,5) Forth:2,2 } CP/M: 9,5 | Apple DMP: 4,6, 
29 34% 20/08) 1000 PS2 7 Epson : 11,5 : 
l'ami Ni 6002-4070  °0ecionnes 26,7 | Seïkosha: 3,3 | 
Î R ; u ; 80 c. étendue : 58,8 : Ë 
h + de 45 :15,0 : 68000: 4,4 ! Î Mannesman : 3,0 : 
PR | î  c. Z280-CP/M : 25,1 : | 
Lisp: 0,3 : Î Oki: 1,4: 
i carte souris : 34,6 ; Î 
Cobol: 1,1 : à * Î autre : 11,52} 
| disque dur : 9,8 ONE A nee | 
Ai 3 1 LE NN PR nes UD rouus : 2 4, 7 
PLE: 0,0 ; débutant: 5,2 | P Re 
APL: 0,3 intermédiaire : 40,0 RÉ : 27 
17,3 | Prolog: 0,8 amateur averti : 46,0 : bouts 4 18,9 
| //c:322 | C: 0,0!  heutniveeu: 8,8 | q 
| 11 fl É amateur : 50, 4 
| Mac128 er niveau général : 4, 35 intérêt pédag: :3, 50 
; Mac512: | présentation : 3,97 micro-infos : 3,76 : 
i MacPlus: i intérêt prog. : 3,79 disquettes : 4,12 
| LISA : clarté articles : 3,43 (Notes entre Det 5) 





*Disques durs : 9,8 % pour l'ensemble des machines (Mac & Apple //) 


Il est vrai que vos compliments nous 
font rougir (Continuez, meilleure 
revue, etc.) mais il est également vrai 
que vos reproches sont indispen- 
sables (Pas assez d'explications, 
soyez plus clairs, il m’a fallu trois 
jours pour comprendre tel article.) ; 
nous orientons la barre dans le sens 
d’une plus grande limpidité par nos 
‘encadrés-mode d'emploi - que 
vous saluez unanimement — et une 
présentation plus simple. 

Sans aucune valeur représentative, 
mais juste pour le plaisir, voici 
quelques unes des remarques -— ar- 
bitrairement choisies - que vous 
nous avez adressées : 


Ce que vous préférez : 

«Rêver que j'ai tout compris, 

Les applications type ‘composeur’ 
(cité au moins une fois sur cinq), 

Les utilitaires EPE, MAX, 

Les applications pratiques (Mul- 
tiplan), 

Les “ponts” entre DOS et ProDOS, 
L’éditorial (!), 

Le cahier Mac, 

L'absence de publicité, 

Les utilitaires à placer dans la 
pomme du Mac, 

Ce qui pallie l'insuffisance des 
documentations Apple, 

Les articles pédagogiques de G. 
Michel, 

La couverture et le prix, 

Le sérieux des programmes.» 


Ce que vous détestez : 

«Les autres (!), 

Tous vos assembleurs car j'ai ‘The 
Assembler’, 

La rédaction érudite 
difficilement déchiffrables, 
Le prix, 

Les anglicismes et le jargon infor- 
matique, 

Attendre deux mois entre parutions, 
Pas assez de publicité, 

Ne rien avoir à critiquer, il n’y avait 
que la présentation mais vous [avez 
changée, 

La publicité déguisée (NDLR : en 
quoi ?), 

Avoir quatre lignes d'explications 
pour quatre pages de source, 

Ce qui n’est pas programmation 
(Multiplan).» 


d’articles 


Ce qu’il faut développer : 
«intelligence artificielle, 

Les astuces, 

Un encadré explicatif pour chaque 
article, 

Applications type ‘fer à souder", 
Applications sur Multiplan, Chart, 
Draw, 

Rien, 

Le courrier des lecteurs, 

Mettez des organigrammes, 

La robotique, 

Les logiciels d'application : compte 
bancaire, 

Trucs sur la communication.» 
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Éditorial 


Apple Expo à la Villette représente un pas de plus de la part d’Apple vers le professionnalisme : 
une ambiance beaucoup plus proche de celle du Sicob, et une domination franche et massive du 
Macintosh. Certes, on parvenait encore à voir des Apple IT mais on semblait être dans l’attente 
du fameux //x, surnommé par certains le Rambo car, tout en restant compatible avec le //e et le 
!x, il devrait tourner trois fois plus vite. 


Par rapport au Sicob d’avril, nous avons vu relativement peu de produits nouveaux. A signaler 
toutefois pour l’Apple II les excellentes possibilités graphiques du programme Extasie de 
Créalude - et dont les droits viennent d’être acquis par Apple -, un utilitaire prometteur pour 
les manipulations en ProDOS, MouseFiler, développé par Froggy Software et, pour les posses- 
seurs de Macintosh, la présentation chez ACI de WriterPlus, dont l’ambition est de remplacer 
d’un coup tous les MacWrite et autres Word, l’apparition chez Microsoft du Flight Simulator, 
la version Mac dépassant nettement la version traditionnelle de ce célèbre logiciel de simulation. 


Dans ce numéro, nous vous présentons deux nouvelles disquettes : l’une pour l’Apple // est un 
recueil de trois jeux de réflexion (intense…), œuvre de Sylvie Gallet déjà auteur de programmes 
pour Pom’s. La deuxième, pour le Macintosh, est un accessoire de bureau qui accélère sen- 
siblement les passages d’une application à l’autre : l’art et la manière de passer de MacPaint à 
MacWrite pour y coller un dessin SANS devoir passer par le bureau électronique. Signé J.-L. 
Bazanegue. 


Ce numéro, certainement influencé par vos nombreuses remarques à l’occasion de notre son- 
dage, est très ouvert. Des programmes tout Basic, d’un accès simple, des programmes en as- 
sembleur moins évidents à saisir mais d’une utilisation aussi aisée, un programme en Pascal 
inspiré par les espaces non entiers abordés dans le numéro 22, des ascenseurs Basic, un acces- 
soire de bureau et un micro-Finder pour le Macintosh, et pourquoi pas de l’informatique hard 
de type “fer à souder et pince coupante”… 


Avouons-le, certains abonnés ont reçu le précédent numéro de leur revue préférée après mise en 
kiosque, le routage ayant été trop tardif, Mea culpa, on ne nous y reprendra plus ! 


Hervé Thiriez 


Ont collaboré à ce numéro : Alexandre Avrane, Bernard Baz, Jean-Luc Bazanegue, Jean Damiènes, Bruno Fénart, 
Alain Guillard, Jean-Michel Gourévitch, Olivier Herz, Paule Jade, Roland Jost, 
Bernard Lambillon, Philippe Meslin, Marc Rogliano, J.-P. Sorribas, Olivier 
Sotiriades, Julien Thomas, Claude Vivier, Yves Wouters. 


Directeur de la publication, rédacteur en chef : Hervé Thiriez. 

Rédacteurs : Alexandre Avrane, Olivier Herz. 

Siège social : Éditions MEV -— 12, rue d'Anjou — 78000 Versailles. Tél : (1) 39 51 24 43. 
Publicité : Éditions MEV. 

Diffusion : N.M.P.P. 

Impression : Rosay — 47, avenue de Paris — 94300 Vincennes. Tél : (1) 43 28 18 63. 
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e programme que 
nous vous proposons 
ici, s'il ne présente pas 
de prouesse du point 


de vue de la programmation, 
intéressera néanmoins un grand 
nombre de lecteurs. 


Il s'agit d'un jeu éducatif qui 
affiche un verbe anglais, et vous 
demande de lui communiquer le 
preterit, le participe passé et la 
traduction française. Le pro- 
gramme corrige automatiquement 
vos réponses incorrectes (ou 
inexistantes) et affiche votre score 
à la fin de chaque séquence (de 
trois à douze questions). 





Programme 


5 REM 


‘TPS PRIMITIFS 
ANGLAIS" 


(C) 1984 #+2** 


7 REM NWOUTERS Y.**** 


8 REM --BELGIQUE--** 
10 REM ------- TEST ANGLAIS------- 
30 DIM VERBES (196, 5) 


40 
50 
60 
70 


80 

30 

100 
110 
120 
210 
220 


230 
240 
250 
260 
270 


280 
290 


300 


DIM DEJA (196) 

DIM OK(196) 

HOME : VTAB 10 

PRINT "PATIENCE:J'APPRENDS LES T 

EMPS PRIMITIFS." 

FOR J = 1 TO 191 

FOR K = 1 TO 5 STEP 1 

READ VERBES (J,K) 

NEXT K 

NEXT J 

HOME : VTAB 8 

PRINT "COMBIEN VOULEZ-VOUS FAIRE 
D'EXERCICES?" 

PRINT "MINIMUM =3 ET MAXIMUM=12" 


. 
î 


INPUT EX 
IF EX < 3 OR EX > 12 GOTO 230 

B2 = 0:B3 = 0:B4 = 0 

FOR J = 1 TO 191:DEJA(J) = 
XTJ 

HOME 

PRINT "INFIN PRETERIT PARTICIPE 
-TRADUCTION" 
PRINT " (TO) 


0: NE 


PASSE 


FRANCAISE" 


310 


320 
330 





FOR I = 1 TO EX 


IF TB = 191 THEN PRINT : PRINT 
"BRAVOI!VOUS AVEZ TOUT REUSSI 
PRINT "JE N'AI PLUS D'EXERCICES 
A VOUS PROPOSER.": PRINT : PRIN 
T "POU POURSUIVRE, PRESSEZ UNE TO 
UCHE"y; GET X$:II = I:I = EX:EX = 
II - 1: GOTO 800 

J = INT ( RND (1) * 191) +1 

IF DEJA(J) = 1 GOTO 340 

DEJA (J) = 1 

IF OK(J) = 3 GOTO 340 

TE = TE + 1 

PRINT VERBES (J,1); 

PV = PEEK (37) + 1 

VTAB 2: HTAB 38: INVERSE : 
TE: NORMAL : VTAB PV 

OK(J) = 0 

REM === QUESTION SUR LE PRETE 
RIT. 

HTAB 8: INPUT "";R2$ 

IF R2$ < > VERBES$(J,2) GOTO 510 
REM ----BONNE REPONSE (PASSE SIMP 
LE) 

B2 = B2 + 1 

Te em) Te: eu 

OK(J) = OK(J) + 1 

GOTO 550 

REM ----ERREUR (PASSE SIMPLE) 
HTAB 8: VTAB PV 

CALL - 958 

INVERSE : PRINT VERBES (J,2);: NO 
RMAL 

REM ---QUESTION SUR LE PARTICIPE 
PASSE--==— 

HTAB 17: VTAB PV: INPUT "";R3$ 
IF R3$ < > VERBES$ (J,3) GOTO 630 
REM ---BONNE REPONSE (PARTICIPE P 
ASSE) -- 

B3 = B3 + 1 

T3 = TI + 1 

OK(J) = OK(J) + 1 

GOTO 670 

REM == ERREUR (PARTICIP 
E PASSE) ---- 

HTAB 17: VTAB PV 

CALL - 958 

INVERSE : PRINT VERBE$S (J,3);: NO 
RMAL 

REM ---QUESTION SUR LA TRADUCTIO 
N FRANCAISE--- 

HTAB 27: VTAB PV: INPUT "";R4$ 
IF R4$ < > VERBES (J,4) AND R4$ 
< > VERBE$(J,5) GOTO 760 


pm 


PRINT 





REM BONNE REPONSE (TRADU 
ÉETIONII= nee 

B4 = B4 + 1 

T4 = T4 + 1 

OK(J) = OK(J) + 1 

IF OK(J) = 3 THEN TB = TB + 1 
GOTO 800 

REM ----ERREUR (TRADUCTION) ----- 


Yves Wouters 


HTAB 27: VTAB PV 
CALL - 958 
INVERSE : PRINT VERBES (J,4): NOR 
MAL 

NEXT I 

PRINT : PRINT : PRINT "ICI :"; 
HTAB 8: PRINT B2;"/";EXy; 

HTAB 17: PRINT B3;"/";EX; 

HTAB 27: PRINT B4;"/"}EX 

PRINT "TOTAL:"; 

HTAB 8: PRINT T2;"/";TEy; 

HTAB 17: PRINT T3;"/";TE; 

HTAB 27: PRINT T4; "/"}TE 

PRINT : PRINT "POUR VOIR L'ENSEM 
BLE DE VOS SUCCES, TAPEZ S ." 
PRINT "SINON, TAPEZ UN CARACTERE 
QUELCONQUE. " 

GET X$: HOME 

IF X$ > < "s" GOTO 970 

FOR J = 1 TO 191 

PRINT OK(J);" "VERBES(J,1), 
NEXT J 

GOTO 890 

VTAB 23: PRINT "VOULEZ-VOUS 
1.UNE NOUVELLE SERIE 
PRINT " 


LP: 
ñ 


GET DECISS 
IF DECISS = 
IF DECISS = 
O 1030 
HOME : PRINT "REPONDEZ PAR 1 OU 
2 ,S.V.P.": GOTO 970 
HOME 
END 
DATA ABIDE,ABODE, ABODE, DEMEURER 
, DEMEURER 
DATA ARISE,AROSE,ARISEN, SE LEVE 
R, SE LEVER 
DATA AWAKE,AWOKE,AWAKEN, S'EVEIL 
LER, S'EVEILLER 
DATA BE,NAS, BEEN, ETRE, EXISTER 
DATA BEAR, BORE, BORNE, PORUER, POR 
TER 
DATA 
TTRE 
DATA BECOME, BECAME, BECOME, DEVEN 
IR, DEVENIR 
DATA BEFALL, BEFELL, BEFALLEN, ARR 
IVER A,ARRIVER À 
DATA BEGET, BEGOT, BEGOTTEN, ENGEN 
DRER, ENGENDRER 
DATA BEGIN, BEGAN, BEGUN, 
ER, COMMENCER 
DATA BEHOLD, BEHELD, BEHELD, CONTE 
MPLER, CONTEMPLER 
DATA BEND, BENT, BENT, COURBER, COU 
RBER 
DATA BEREAVE, BEREFT, BEREFT, PRIV 
ER, PRIVER 
DATA BESEECH, BESOUGHT, BESOUGAT, 
SUPPLIER, SUPPLIER 
DATA BID,BID, BID, ORDONNER, ORDON 


2.ARRETER 


"1" GOTO 210 


"2" THEN HOME : GOT 


BEAT, BEAT, BEATEN, BATTRE, BA 


COMMENC 
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1230 


1232 


1234 


1236 


1240 


1245 


1250 


1260 


1262 


1264 


1270 


1275 
1280 


1285 


1290 


1292 


1294 


1296 


1300 
1310 


1312 
1314 
1320 
1322 
1324 


1326 


1330 
1340 


1350 


1360 


1370 


1375 


1380 


1390 


1400 


1410 


1420 


1430 


1432 
1434 


1440 
1442 








NER 
DATA 
R 
DATA 
DRE 
DATA 
IGNER 
DATA  BLOW, BLEW, BLOWN, SOUFFLER, S 
OUFFLER 
DATA BREAK, BROKE, BROKEN, CASSER, 
ROMPRE 
DATA BREED, BRED, BRED, ELEVER, ELE 
VER 
DATA BRING, BROUGHT, BROUGHT, APPO 
RTER, AMENER 
DATA BUILD, BUILT, BUILT, BATIR, CO 
NSTRUIRE 
DATA BURN, BURNT, BURNT, BRULER, BR 
ULER 
DATA BURST, BURST, BURST, ECLATER, 
ECLATER 
DATA BUY, BOUGHT, BOUGHT, ACHETER, 
ACHETER 
DATA CAST,CAST, CAST,JETER, JETER 
DATA CATCH, CAUGHT, CAUGHT, ATTRA 
PER, SAISIR 
DATA CHIDE, CHID, CHIDDEN, GRONDER 
, GRONDER 
DATA CHOOSE, CHOSE, CHOSEN, CHOISI 
R, CHOISIR 
DATA  CLEAVE, CLEFT, CLEFT, FENDRE 
, FENDRE 
DATA CLING, CLUNG, CLUNG, S'ACCROC 
HER, S'ACCROCHER 
DATA CLOTHE, CLED, CLAD, VETIR, VET 
IR 
DATA 
DATA 
ER 
DATA 
AMPER 
DATA 
HANTER 
DATA CUT, CUT, CUT, COUPER, COUPER 
DATA DARE,DURST, DARED, OSER, OSER 
DATA DEAL, DEALT, DEALT, DISTRIBUE 
R, DISTRIBUER 
DATA DIG,DUG, DUG, CREUSER, CREUS 
ER 
DATA 
DATA 
IRER 
DATA 
REVER 
DATA 
IRE 
DATA DRIVE, DROVE, DRIVEN, POUSSER 
 CONDUIRE 
DATA DWELL, DNELT, DNELT, DEMEURER 
, DEMEURER 
DATA EAT,ATE, EATEN, MANGER, MANGE 
R 
DATA 
MBER 
DATA 
NTER 
DATA 
ENTIR 
DATA FIGHT, FOUGHT, FOUGHT, COMBAT 
TRE, SE BATTRE 
DATA FIND, FOUND, FOUND, TROUVER, T 
ROUVER 
DATA FLEE, FLED, FLED, FUIR, FUIR 
DATA FLING, FLUNG, FLUNG, LANCER, L 
ANCER 
DATA FLY, FLEW, FLOWN, VOLER, VOLER 
DATA FORBEAR, FORBORE, FORBORNE, S 
'ABSTENIR, S'ABSTENIR 


BIND, BOUND, BOUND, LIER, NOUE 
BITE, BIT, BITTEN, MORDRE, MOR 


BLED, BLED, BLED, SAIGNER, SA 


COME, CAME, COME, VENIR, VENIR 
COST, COST, COST, COUTER, COUT 


CREEP, CREPT, CREPT, RAMPER, R 


CRONW, CREW, CROWED, CHANTER, C 


DO, DID, DONE, FAIRE, FAIRE 
DRAW, DREW, DRANWN, DESSINER, T 


DREAM, DREAMT, DREAMT, REVER, 


DRINK, DRANK, DRUNK, BOIRE, BO 


FALL, FELL, FALLEN, TOMBER, TO 


FEED, FED, FED, NOURRIR, ALIME 


FEEL, FELT, FELT, SENTIR, RESS 
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1444 


1450 


1452 


1454 


1460 


1470 


1472 
1474 


1480 


1490 
1495 


1500 


1510 


1520 
1530 


1532 


1534 


1540 


1550 


1560 


1570 


1580 


1582 


1584 


1590 


1592 


1594 
1600 


1602 


1604 


1610 


1620 


1630 


1640 


1642 


1644 


1650 


1660 


1670 


1680 


1682 


DATA FORBID, FORBADE, FORBIDDEN, D 
EFENDRE, DEFENDRE 

DATA FORGET, FORGOT, FORGOTTEN, OU 
BLIER, OUBLIER 

DATA  FORGIVE, FORGAVE, FORGIVEN, P 
ARDONNER, PARDONNER 

DATA  FORSAKE, FORSOOK, FORSAKEN, À 
BANDONNER, ABANDONNER 

DATA FREEZE, FROZE, FROZEN, GELER, 
CONGELER 

DATA GET, GOT, GOT, OBTENIR, DEVENI 
R 
DATA 
DATA 
NDRE 
DATA 
NER 
DATA GO, WENT, GONE, ALLER, ALLER 
DATA  GRIND, GROUND, GROUND, MOUDRE 
 MOUDRE 

DATA GROW, GREW, GROWN, CROITRE, GR 
ANDIR 
DATA 
RE 
DATA 
DATA 
OUIR 
DATA HEAVE, HOVE, HOVE, SE SOULEVE 
R, SE SOULEVER 

DATA HEW, HEWED, HEWN, TAILLER, TAI 
LLER 
DATA 
HER 
DATA 
R 
DATA 
ENIR 
DATA  HURT, HURT, HURT, BLESSER, FAI 
RE SOUFFRIR 

DATA KEEP, KEPT, KEPT, GARDER, GARD 
ER 

DATA KNEEL, KNELT, KNELT, S'AGENOU 
ILLER, S'AGENOUILLER 

DATA KNIT, KNIT, KNIT, TRICOTER, TR 
ICOTER 

DATA KNOW, KNEW, KNOWN, CONNAITRE, 
SAVOIR 

DATA LADE, LADED, LADEN, CHARGER, C 
HARGER 

DATA LAY, LAID, LAID, POSER, POSER 
DATA LEAD, LED, LED, CONDUIRE, DIRI 
GER 

DATA LEAN, LEANT, LEANT, SE PENCHE 
R, SE PENCHER 

DATA LEAP, LEAPT, LEAPT, BONDIR, BO 
NDIR 

DATA LEARN, LEARNT, LEARNT, APPREN 
DRE, APPRENDRE 

DATA LEAVE, LEFT, LEFT, LAISSER, QU 
ITTER 

DATA LEND, LENT, LENT, PRETER, PRET 
ER 

DATA LET,LET, LET, LAISSER, PERMET 
TRE 

DATA LIE,LAY, LAIN,ETRE COUCHE, E 
TRE COUCHER 

DATA LIGHT, LIT, LIT, ALLUMER, ALUM 
ER 

DATA LOSE, LOST, LOST, PERDRE, PERD 
RE 

DATA MAKE,MADE, MADE, FAIRE, FABRI 
QUER 

DATA MEAN,MEANT, MEANT, SIGNIFIER 
, VOULOIR DIRE u 

DATA MEET,MET, MET, RENCONTRER, RE 
NCONTRER 

DATA MISTAKE,MISTOOK, MISTAKEN, S 
E TROMPER, SE TROMPER 


GILD, GILT, GILT, DORER, DORER 
GIRD, GIRT, GIRT, CEINDRE, CEI 


GIVE, GAVE, GIVEN, DONNER, DON 


HANG, HUNG, HUNG, PENDRE, PEND 


HAVE, HAD, HAD, AVOIR, AVOIR 
HEAR, HEARD, HEARD, ENTENDRE, 


HIDE, HID, HIDDEN, CACHER, CAC 
HIT, HIT, HIT, FRAPPER, FRAPPE 


HOLD, HELD, HELD, TENIR, MAINT 


1684 


1690 
1695 


1700 
1710 
1712 
1714 
1720 
1730 
1740 
1750 
1755 
1760 
1770 
1772 
1774 
1780 


1790 


1800 
1810 


1812 


1814 


1820 


1825 


1830 


1840 


1842 


1844 


1846 


1850 


1860 


1865 


1870 


1875 
1880 


1881 


1882 


1883 


1884 


1885 


1886 


1887 
1890 


1895 


DATA 
CHER 
DATA 
DATA 
RQUER 
DATA 
DATA 
DATA 
CHIRER 
DATA RID,RID,RID, DEBARRASSER, DE 
BARRASSER 

DATA RIDE, RODE, RIDDEN, ALLER À C 
HEVAL, ALLER À VELO 

DATA RING, RANG, RUNG, SONNER, SONN 
ER 

DATA RISE,ROSE,RISEN,SE LEVER, S 
E LEVER 

DATA RUN, RAN, RUN, COURIR, COURIR 
DATA SAW, SAWED, SAWN, SCIER, SCIER 
DATA SAY,SAID, SAID, DIRE, DIRE 
DATA SEE, SAWN, SEEN, VOIR, VOIR 
DATA  SEEK, SOUGHT, SOUGHT, CHERCHE 
R, CHERCHER 

DATA SEETHE, SOD, SODDEN, BOUILLIR 
, BOUILLIR 

DATA SELL, SOLD, SOLD, VENDRE, VEND 
RE 
DATA 
OYER 
DATA SET, SET, SET, POSER, PLACER 
DATA SHAKE, SHOOKE, SHAKEN, SECOUE 
R, SECOUER 

DATA SHEAR, SHORE, SHORN, TONDRE, T 
ONDRE 

DATA SHED, SHED, SHED, VERSER, VERS 
ER 

DATA SHINE, SHONE, SHONE, BRILLER, 
LUIRE 

DATA SHOE, SHOD, SHOD, CHAUSSER, CH 
AUSSER 

DATA SHOOT, SHOT, SHOT, TIRER, DONN 
ER UN COUP DE PIED 

DATA SHOW, SHOWED, SHOWN, MONTRER, 
EXPOSER 

DATA SHRED, SHRED, SHRED, MONTRER, 
MONTER 

DATA SHRINK, SHRANK, SHRUNK, SE RE 
TRECIR, SE RETRECIR 

DATA  SHRIVE, SHROVE, SHRIVEN, CONF 
ESSER, CONFESSER 

DATA  SHUT, SHUT, SHUT, FERMER, CLOR 
E 

DATA  SING, SANG, SUNG, CHANTER, CHA 
NTER 

DATA  SINK, SANK, SUNK, ENFONCER, EN 
FONCER 

DATA SIT,SAT, SAT, 
RE ASSIS 

DATA SLAY, SLEW, SLAIN, TUER, TUER 
DATA SLEEP, SLEPT, SLEPT, DORMIR, D 
ORMIR 
DATA 
ISSER 
DATA 
ANCER 
DATA SLINK, SLUNK, SLUNK, SE GLISS 
ER, SE GLISSER 

DATA SLIT, SLIT, SLIT, FENDRE, FEND 
RE 
DATA 
ENTIR 
DATA SMITE, SMOTE, SMITTEN, FRAPPE 
R, FRAPPER 

DATA  SOW, SOWED, SOWN, SEMER, SEMER 
DATA SPEAK, SPOKE, SPOKEN, PARLER, 
PARLER 

DATA SPEED, SPED, SPED,SE HATER, S 
E HATER 


MOW, MOWED, MOWN, FAUCHER, FAU 


PAY, PAID, PAID, PAYER, PAYER 
PEN, PENT, PENNED, PARQUER, PA 


PUT, PUT, PUT, METTRE, PLACER 
READ, READ, READ, LIRE, LIRE 
REND, RENT, RENT, DECHIRER, DE 


SEND, SENT, SENT, ENVOYER, ENV 


ETRE ASSIS, ET 


SLIDE, SLID, SLID, GLISSER, GL 


SLING, SLUNG, SLUNG, LANCER, L 


SMELL, SMELT, SMELT, SENTIR, S 


1900 




































1910 


1912 


1914 


1916 


1918 


1920 


1922 


1924 


1930 


1932 


1934 


1940 


1942 


1944 


1946 


1948 


DATA SPELL, SPELT, SPELT, EPELER, O 
RTHOGRAPHIER 

DATA  SPEND, SPENT, SPENT, DEPENSER 
 DEPENSER 

DATA SPILL, SPILT, SPILT, REPANDRE 
7 REPANDRE 

DATA  SPIN, SPUN, SPUN, FILER, TOURN 
ER 

DATA SPIT, SPIT, SPIT, CRACHER, CRA 
CHER 

DATA SPLIT, SPLIT, SPLIT, FENDRE, F 
ENDRE : 

DATA SPOIL, SPOILT, SPOILT, GATER, 

ABIMER 

DATA  SPREAD, SPREAD, SPREAD, ETEND 
RE, ETENDRE 


DATA  SPRING, SPRANG, SPRUNG, S'ELA 


NCER, S'ELANCER 

DATA STAND, STOOD, STOOD, SE TENIR 
DEBOUT, SE DRESSER 

DATA STAY, STAID, STAID, SÉJOURNER 

 RESTER 

DATA STEAL, STOLÉ, STOLEN, VOLER, D 

EROBER 

DATA STICK, STUCK, STUCK, ADHERER, 

COLLER 

DATA  STING, STUNG, STUNG, PIQUER, P 

IQUER 

DATA STINK, STANK, STUNK, PUER, PUE 

R 

DATA STREW, STREWED, STREWN, JONCH 

ER, JONCHER 

DATA  STRIDE, STRODE, STRIDDEN, MAR 


présenté. 


Nouvelle difficulté, NOIR & BLANC : 
hexagones peuvent être noirs ou blancs mais 
au départ vous n'en connaissez pas la couleur. 
Chacun comporte un numéro qui représente le 

nombre de cellules voisines blanches... A 

vous de reconstituer le décor original ! 

HEXAGONE MAGIQUE est encore plus 
délicat, même principe que le carré magique, 
mais ici vous devrez installer les chiffres de 1 
à 19 dans un hexagone de telle façon que les 5 
horizontales et 10 obliques totalisent chacune 
38 : bonne chance. 


1950 


1951 


1952 


1953 


1954 


1955 


1956 


1960 


.1965 


1970 
1980 
1990 


2000 
2010 


2015 
2020 


2022 


Au sommaire de la disquette LUDOLOGIC, 
trois jeux de réflexion de difficulté croissante. 
Ces jeux qui nécessitent des neurones aussi 
calmes qu'entrainés, ne devraient pas décevoir 
les amateurs de puzzles et autres casse-têtes. 


Il n'est pas nécessaire de présenter TAQUIN, 
ce pousse-pousse informatique ici fort bien 


Fidèle à son habitude, Pom's vous propose sur cette disquette les 
sources des routines écrites par Sylvie Gallet en assembleur Lisa 
2.5. Bien entendu, le Basic est également listable. TAQUIN et 
NOIR & BLANC utilisent leur propre routine graphique qui 
permet de dessiner plus rapidement qu'avec des shapes. 










CHER À GRANDS PAS,SE DEPECHER 
DATA STRIKE, STRUCK, STRUCK, FRAPP 
ER, FAIRE GREVE 

DATA STRING, STRUNG, STRUNG, ENFIL 
ER, ENFILER 

DATA STRIVE, STROVE, STRIVEN, S'EF 
FORCER, S'EFFORCER 

DATA SWEAR, SWORE, SWORN, JURER, JU 
RER 

DATA SNEAT, SWEAT, SWEAT, SUER, SUE 
R 

DATA SWEEP, SWEPT, SWEPT, BALAYER, 
BALAYER 

DATA SWELL, SWELLED, SNOLLEN, ENFL 
ER, ENFLER 

DATA  SWIM, SWAM, SHUM, NAGER, NAGER 
DATA SWING, SHUNG, SNUNG, BALANCER 
, BALANCER 

DATA TAKE, TOOK, TAKEN, PRENDRE, PR 
ENDRE 

DATA TEACH, TAUGHT, TAUGHT, ENSEIG 
NÉR, ENSEIGNER 

DATA  TEAR,TORE, TORN, DECHIRER, D 
ECHIRER 

DATA TELL, TOLD, TOLD, DIRE, DIRE 
DATA THINK, THOUGHT, THOUGAT, PENS 
ER, REFLECHIR 

DATA  THRIVE, THROVE, THRIVEN, PROS 
PERER, PROSPERER 

DATA  THROW, THRENW, THROWN, JETER, L 
ANCER 

DATA  THRUST, THRUST, THRUST, LANCE 
R, LANCER 
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2024 


2026 


2028 


2029 


2030 


2040 


2042 


2044 


2050 
2052 


2054 


2056 


2058 


2059 


2060 


2062 


2400 
2500 


Une nouvelle disquette de jeux : Ludologic 


DATA TREAD, TROD, TROD, FOULER, FOU 
LER AUX PIEDS 

DATA  UNDERSTAND, UNDERSTOOD, UNDE 
RSTOOD, COMPRENDRE, COMPRENDRE 
DATA UNDO,UNDID, UNDONE, DEFAIRE, 
DEFAIRE 

DATA UPSET, UPSET, UPSET, RENVERSE 
R, RENVERSER 

DATA WAKE,WOKE, WOKEN, EVEILLER, S 
"EVEILLER 

DATA WEAR, WORE, WORN, PORTER, PORT 

ER UN VETEMENT 

DATA WEAVE, WOVE, WOVEN, TISSER, TI 

SSER 

DATA 
URER 

DATA WIN, WON, NON, GAGNER, GAGNER 

DATA WIND, WOUND, WOUND, ENROULER, 
ENROULER 

DATA  WITHDRANW, WNITHDREW, WITHDRAW 

, RETIRER, RETIRER 

DATA WITHSTAND, WITHSTOOD, HITHST 

O0D, RESISTER A, RESISTER À 

DATA WORK, WROUGHT, WROUGHT, TRAVA 
ILLER, TRAVAILLER 

DATA WRING, WRUNG, WRUNG, TORDRE, T 
ORDRE 

DATA WRITE, WROTE, WRITTEN, ECRIRE 
, ECRIRE 

DATA WRITHE, WRITHED, WRITHEN, SE 
TORDRE, SE TORDRE 


WEEP,WEPT, WEPT, PLEURER, PLE 


' 


"{C)1984 -WOUTERS YVES 





80,00 F Franco, 
Bon de commande page 74 
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e programme, écrit en 

assembleur , permet la 

lecture et l'écriture 

directe sur l'un des 
280 blocs d'une disquette 
ProDOS. (RSPD : Read and Save 
ProDos). 


Utilisation 


L'affichage 80 colonnes est 
indispensable. Sur un Apple //c 
ou un Apple //e mis à niveau il 
utilise les caractères souris ; 
toutefois il fonctionne sans 
problème sur un ancien //e, la 
présentation étant simplement 
moins agréable. 

Il faut sauvegarder le fichier objet 
(R.S.P.D'OBJTET) "surune 
disquette ProDOS à l'aide des 
‘Utilitaires Système' avant de 
lancer le programme. 

Ceci fait, exécutez le programme. 
Le message de présentation doit 
alors apparaître. Insérez ensuite la 
disquette ProDOS que vous 
voulez lire ou modifier dans le 
lecteur 1 (lecteur integré sur un 
/Ic) et appuyez sur <RETURN:>. 
La disquette se met à tourner et le 
contenu du block 0 apparaît sur 
l'écran. 


Commandes 


* flèches : déplacement du 
curseur sur l'écran ; 


+ éet flèches gauche ou droite : 


lecture du bloc précédant ou du 
bloc suivant ; 


+ Get flèches gauche ou droite : 
lecture des blocs précédant ou 
suivant par pas de 10 ; 


+ <espace> : changement de 
page pour lire le premier ou le 
second groupe de 256 octets (1 
bloc contient 512 octets) ; 


+ Lorsque le curseur est sur un 
octet, on peut modifier ce dernier 
en tapant directement le code 
hexadécimal voulu ; 


°° CTRL-A : entrée dans le 
mode d'insertion des caractères 
(jusqu'à un nouveau CTRL-A) ; 


+ CTRL-B : entrée du numéro 
de bloc pour que son contenu soit 
affiché sur l'écran (et ceci sans 
passer par les touches é et G). 


+ CTRL-C : changement de 
lecteur ( Drive 1-2 ). 


+ CTRL-S : sauvegarde des 
modifications éventuelles sur la 
disquette (attention : l'ancien 
contenu du bloc est alors perdu). 


° CTRL:X : switch entre deux 

types de caractères : 

- Tous les caractères pouvant 
être affichés le sont (y compris 
les caractères souris). 

- Les caractères affichés sont 
obtenus par 'ORA #$80' pour 
mettre leur bit 7 à un ( les 
valeurs ‘O0 sont alors 
affichées sous la forme du 


URL 


caractère ." ). 


Marc Rogliano 


+ ESC, enfin, pour quitter le 
programme. 


Précisions 

Il convient de souligner ici 
quelques points : 

- d'abord, un emprunt : la 
routine sonore du "Moniteur 
étendu' de Thierry le Tallec 
(Pom's 8) ; 

- le buffer utilisé va de l'adresse 
$4000 à l'adresse $41FF (un bloc 
ProDOS équivaut à 2 secteur DOS 
3.3 c'est-à-dire à $200 octets) ; 

- au démarrage, le programme 
teste s'il y a une carte 80 colonnes 
et s'arrête dans le cas contraire ; 
d'autre part, il teste également la 
machine sur laquelle il tourne et 
s'il peut utiliser les icônes souris, 
dans le cas contraire, ceux-ci 


seront remplacés par des 
caractères standards comme, par 
exemple, ‘-’ ou ‘!” pour les 
cadres ; 


- enfin, les erreurs concernant le 
disque sont détectées et affichées. 


Note : on peut aussi lire des 
disques formattés en DOS 3.3 ou 
PASCAL avec R.S.P.D.OBJET, 
mais il faut alors se rappeler la 
correspondance entre les blocs 
ProDOS et les secteurs logiques 
des autres systèmes d'exploitation 
(voir Pom's n° 18 et 19). 





Récapitulation 
R.S.P.D.OBJET 


Après avoir saisi ce code sous 
moniteur, vous le sauvegarderez par 
BSAVE R.S.P.D.OBJET,A$6000,L$F45 


6000- 20 39 FB A9 FF 85 32 20 
6008- 58 FC AD 98 BF 29 02 DO 
6010- 17 A9 19 AO 6F A2 07 86 
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6018- 06 86 07 20 D4 69 20 B9 
6020- 69 20 B9 69 20 B9 69 60 
6028- 38 AD CO FB FO 05 C9 EO 
6030- FO 01 18 66 09 A2 03 B5 
6038- 36 9D 3A 6F CA 10 F8 A9 
6040- 03 20 95 FE A9 11 20 ED 
6048- FD 20 58 FC A9 01 85 06 
6050- A9 01 85 07 A9 2A AO 6A 
6058- 20 D4 69 A9 91 AO 6À 20 
6060- D4 69 A9 F5 AO 6A 20 D4 
6068- 69 A9 7A AO 6B 20 D4 69 


6070- A9 FB A0 6B 24 09 30 04 
6078- A9 1D AO 6C 20 D4 69 20 
6080- B9 69 8D 10 CO AD 00 CO 
6088- 10 FB C9 8D FO 09 8D 10 
6090- CO 20 B9 69 4C 85 60 20 
6098- 58 FC A9 12 20 ED FD 20 
60A0- 58 FC A9 04 85 1E A9 03 
60A8- 8D 3E 6F A9 60 8D 3F 6F 
60B0- A9 00 8D 40 6F 8D 42 6F 
60B8- 8D 43 6F A9 40 8D 41 6F 
60C0- 20 00 BF 80 3E 6F 90 06 





Source ‘R.S.P.D.SOURCE’ DEx 


BPL SAVEIO 
Assembleur ProCODE LDA 43 
JSR OUTPRT 

DSK R.S.P,D.OBJET SETTXT EQU $SFB39 RRRARRRRRRARRRRRRÉARARARÉRAÉRÉRÉ 
DD DD HA DD DD DD D D DD D COUT EQU  $FDED *. AFFICHAGE .DE.LA.PRESENTATION. * 
Dr oeb els se den le ess see SPKR EQU $C030 Se MEANS EE NE NE EE TER ER 
**..UTILITAIRE..R.S.P.D...** BASCALC EQU S$FBC1 DEB.80 LDA #17 
**,. (READ.6&.SAVE.PRODOS).,.** PRBYTE EQU  $FDDA JSR COUT 
AR .  MARC.ROGLIANO. ..** FRMNUM EQU S$DD67 JSR HOME 
OT A ES OUR ces PAT Li AYINT  EQU $E10C LDA  #$01 
RRRRRARER ARR A RAR ÉRÉNENÉHÉÉE LINPTR EQU S$ED24 STA COL 
*,.Asm.Procode GIVAYF EQU $E2F2 LDA #$01 

ORG $6000 MOVAF EQU $EB63 STA LIG 
RÉRRARRRAÉRÉREÉÉ AE EEE EEE FDIVT EQU $EA69 LDA #<PRES.0 
*, . ADRESSES. PAGE. ZERO. . * FADDT EQU $E7C1 LDY #>PRES.0 
ARRRRRRRRRRRER ARE ÉÉÉHÉRÉ OUTPRT EQU S$FE95 JSR STROUT40 
COL EQU $06 LS LIILITI 11111111: LDA #<PRES.1 
LIG EQU $07 *.,INITIALISATION. .* LDY #>PRES.1 
CAR EQU $08 *.//c.ou.new.//e.?.* JSR  STROUT40 
ICONE EQU $09 CPTLLILLIILII1111111 LDA #<PRES,2 
AFFI.L EQU $1A JSR SETTXT : TEXT LDY #>PRES.2 
AFFI.H EQU $1B LDA #$FF JSR STROUT40 
SWITCH EQU $1C STA 532 ; NORMAL LDA #<PRES,3 
CURS EQU $IlE JSR HOME LDY #>PRES.3 
LB EQU $EB LDA $BF98 USR STROUT40 
HB EQU $EC AND ##00000010 LDA #<PRES.4.1 
LB. EQU $ED BNE OLISGOUD LDY #>PRES.4.1 
HB. EQU $EE LDA #<MESSERR BIT ICONE 
INTER EQU $EF LDY  #>MESSERR BMI PRESICON 
DISK.L EQU $FA LDX #$07 LDA #<PRES.4,2 
DISK.H EQU $FB STX COL LDY #>PRES.4.2' 
CURS.COL EQU $FC STX LIG PRESICON JSR STROUT40 
CURS.LIG EQU $FD JSR STROUT40 JSR  SOUND 
L.LB EQU $FE JSR  SOUND STA $C010 
L.HB EQU $FF JSR  SOUND W.KBD LDA $CO000 
CÉLELEETLTILI LIL 11111 JSR  SOUND BPL W.KBD 
*,.ADRESSES, SYSTEME, . * RTS CMP #$8D 
RRRARRARARRRRAA RÉ ÉEÉÉÉ SX OLISGOUD SEC BEQ 0 
STO80.1 EQU $CO01 LDA $FBCO STA $CO10 
STO80.0 EQU $CO000 BEQ IIC JSR  SOUND 
PAGE1 EQU $C054 CMP #$E0 JUMP W.KBD 
PAGE2 EQU $CO055 BEQ NEW.IIE CÉLLLLLILLLLILILLLIII ITS) 
BUTTONO EQU $CO061 CLC *, CHARGEMENT .DU.BLOCK.0,.* 
BUTTONI EQU $CO062 NEW.IIE EQU * PÉTLLLILLLLLLLLLLLILLLLEE 
CEPPELLITLLII ZT: IIC ROR ICONE XXX JSR HOME 
*,.ROUTINES, . * LDX #3 LDA #18 
ARRARRRRÉARÉARÉ EX SAVEIO LDA $36,X JSR COUT 
HOME EQU $FC58 STA SAVE,X JSR HOME 
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RRRARRERRRRARRÉÉRRRÉARRARREEE 


*,AFICHAGE.COMMANDES+CADRE. * 


ARRARARARRARRRÉARRRRRRRARAHRÉX 


AFF.MENU LDA 
STA 
LDA 
STA 
LDA 
LDY 
JSR 


AAAIO JSR 


AAAI1 JSR 
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#$04 LDY #>AAA2.1 
CURS BIT ICONE 
#$03 BMI AAAI2 
TABLE LDA #<AAA2.2 
#$560 LDY #>AAA2.2 
TABLE+1 AAAI2 JSR STROUT80 
#$00 LDA #<AAA3 
TABLE+2 LDY #>AAA3 
TABLE+4 JSR STROUT80 
TABLE+5 JSR CADRE 
#$40 LDA #$01 
TABLE+3 STA SWITCH 
$BF00 LDA #$40 
$80 STA L.HB 
TABLE LDA #$00 
AFF .MENU STA L.LB 
ERROR STA CURS.COL 
DEB. 80 STA CURS.LIG 
STA DISK.H 
STA DISK.L 
JSR AFF... 
#500 JSR AFF. 
COL JSR  SOUND 
#$01 STA $CO010 
LIG RRRARRRRRRRARRÉRRRRRRRRRRRARR 
#<AAA0 *, ATTENTE. D'UNE.COMMANDE. * 
#>AAA0 RRARRARRARÉRRRRÉRRÉRRRARÉRRRRRÉR 
STROUT80 WAIT.KBD LDA $CO000 
#<AAA0.1 BPL WAIT.KBD 
#>AAA0. 1 CMP #$588 
ICONE BNE XXX.0 
AAAIO JMP GAUCHE 
#<AAA0,.2 XXX.0 CMP #$95 
#>AAA0.2 BNE XXX.1 
STROUT80 UMP DROITE 
#<AAA1 XXX.1 CMP #$8B 
#>AAAIl BNE XXX.2 
STROUT80 JMP HAUT 
#<AAA1.1 XXX.2 CMP #$8A 
#>AAA1,.1 : BNE XXX.3 
ICONE JUMP BAS 
AAAI1 XXX.3 CMP #$A0 
#<AAA1.2 BNE XXX.4 
#>AAA1.2 JUMP SPACE 
STROUT80 XXX.4 CMP - #$81 
#<AAA2 BNE XXX.5 
#>AAA2 JUMP C.A. 
STROUT80 XXX.5 CMP #$82 
#<AAA2. 1 BNE XXX.6 


XXX.7 CMP 


BNE 


XXX.9 CMP 


XXX.10 JSR 


XXX.11 JSR 


C.B. 
#$583 
XXX.7 
C.C. 
#$93 
XXX.8 
C.sS. 
#$98 
XXX.9 
C.X. 
#$9B 
XXX.10 
ESC 
TEST 
XXX.11 
ENT.CAR 
SOUND 
$C010 
WAIT.KBD 


RARRRÉRRRRÉRÉRÉRÉRRÉRÉR ARR ER 


*, CARACTERE . ENTRE. 0-9.OU.A-F.?.,* 


RAHRRRRRÉRÉRÉÉRRER ERA ÉRÉRÉÉRÉAHER 


TEST CMP 
BCC 
CMP 
BCS 
CMP 
BCS 


#$B0 
TESTO 
#$c7 
TESTO 
#$c1 
TESTI1 


CMP  #$BA 
BCC TESTI 
TESTO CLC 
RTS 
TEST1 SEC 
RTS 


RRRRRAARRAARARÉRARÉRARRA ARE 


*, CARACTERE .ENTRE.O0.ET.9,?.%* 
CLTLLLLLILLIILLLIILLILII1111 
TEST. . CMP #$8D 

BEQ TEST..1 

CMP #$B0 

BCC TEST..2 

CMP #"9"+1 

BCS TEST. .2 
TEST..1 CLC 

RTS 
TEST..2 SEC 

RTS 


#hkétrkéttéttététéééttététtttté 


*DEPLACEMENTS. CURSEUR. SUR. ECRAN* 
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1 





RRARARÉRÉARAÉARRÉRÉRRÉÉÉ ER EE ER EEE À 


GAUCHE 


XXX A 


XXX.B 


GAUCHE1 


DROITE 


XXX.C 


XXX.D 


DROITE 


HAUT 


HAUT1 


HAUT2 


LDA 


BUTTONO 
XXX.A 
GAUCHE. . 
BUTTON1 
XXX.B 
GAUCHE. 
CURS. COL 
GAUCHE 
SOUND 
$C010 
WAIT.KBD 
CURS.COL 
AFF... 
$C010 
WAIT.KBD 
BUTTONO 
XXX.C 
DROITE... 
BUTTONI 
XXX.D 
DROITE. 
CURS. COL 
#50F 
DROITE1 
SOUND 
$C010 
WAIT.KBD 
CURS.COL 
AFF.... 
$C010 
WAIT.KBD 
CURS. LIG 
HAUTI1 
SOUND 
$C010 
WAIT.KBD 


HAUT2 
L.LB 
HAUT4 


#510 
L.LB 
HAUT3 
L.LB 


HAUT3 


HAUT4 


BAS1 


BAS2 


BAS3 


HAUT4 
#540 
L.HB 
#$F0 
L.LB 
CURS.LIG 
AFF. 
$C010 
WAIT.KBD 
CURS. LIG 
AFF..., 
$C010 
WAIT.KBD 
CURS. LIG 
#$1F 
BAS1 
SOUND 
$C010 
WAIT.KBD 
CURS.LIG 
CURS. LIG 


BAS3 
L.LB 
BAS3 


#$10 
L.LB 
BAS2 
#541 
L.HB 
AFF. 
$Cc010 
WAIT.KBD 
AFF.... 
$co010 
WAIT.KBD 


RRARRRARÉEAÉEÉÉÉNNÉN NÉE HE A A Et À 


*, DEPLACEMENTS. SUR. LE. DISQUE. * 


RARE ÉÉEÉÉ ARR HE 


GAUCHE. 


LDA 
BNE 
LDA 
BNE 
JSR 
STA 


DISK.H 
GAUCHE. 1 
DISK.L 
GAUCHE. 1 
SOUND 
$C010 


GAUCHE. 1 


DROITE. 


DROITE. 1 


WAIT.KBD 


DISK.L 
#$01 
DISK.L 
DISK.H 
#500 
DISK.H 
AFF.. 
$C010 
WAIT.KBD 
DISK.H 
DROITE. 1 
DISK.L 
#517 
DROITE. 1 
SOUND 
$C010 
WAIT.KBD 


DISK.L 
#$01 
DISK.L 
DISK.H 
#$00 
DISK.H 
AFF.. 
$co010 
WAIT.KBD 


HRARRRÉAAARARÉRRAA ARR ER ÉRÉÉ ER 


*, DEPLACEMENTS. DISQUE. (*10).* 


ARRRARRARRRRRÉRÉARÉRRRÉRÉRRÉA EX 


GAUCHE. . 


GAUCHE. 2 


LDA 
BNE 
LDA 
CMP 
BCS 
JSR 
STA 
UMP 


DISK.H 
GAUCHE. 2 
DISK.L 
#$0A 
GAUCHE. 2 
SOUND 
$C010 
WAIT.KBD 


DISK.L 
#$0A 
DISK.L 
DISK.H 
#500 
DISK.H 
AFF,. 
$Co010 
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DROITE. . 


DROITE. 2 


WAIT.KBD 
DISK.H 
DROITE.2 
DISK.L 
#$0E 
DROITE. 2 
SOUND 
$C010 
WAIT.KBD 


DISK,.L 
#$0A 
DISK.L 
DISK.H 
#$00 
DISK.H 
AFF.. 
#C010 
WAIT.KBD 


RARRRRÉRRRRARRRRRARX 


*. CHANGER. DE. PAGE. * 


RAARRARRRÉARRÉRAAREHÉX 


SPACE 


SPACE1 


SPACE2 
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LDA 
CMP 
BCS 
LDA 
STA 
LDA 
STA 
LDA 
CMP 
BCS 
CLC 
LDA 


L.HB 
#541 
SPACE2 
#541 
L.HB 
#$00 
L.LB 
CURS,. LIG 
#$10 
SPACE1 


#$10 
CURS. LIG 
CURS. LIG 
AFF. 
$C010 
WAIT.KBD 
#$40 
L.HB 
#500 
L.LB 


CURS.LIG 
#510 
CURS.LIG 
AFF. 
$co010 


UMP 


WAIT.KBD 


RRRRARRRRRÉRÉRÉRRARAREHRÉRE 


*. ENTRER. DES . CARACTÈRES. * 


RRARRRRÉRRÉRRÉRRRRRRRRÉRRÉÉ 


C.A. STA 
C.A.0 JSR 
LDA 
LDX 


Cia2 CLC 


#C010 
AFF.CUR 
CURS.COL 
#503 


C.A.2 


CURS.COL 
C.A.1 


#$09 
COL 
CURS.LIG 


#$508 
LIG 
#$53F 
CAR 
COL.LIG 
COL 
COL.LIG 
$C000 
C.A.3 
$C010 
#$81 
C.A.7 
INTER 
CURS.LIG 


CURS.COL 


L.LB 


INTER 
(L.LB),Y 
CURS.COL 
#$0F 
C.A.6 
#500 
CURS.COL 
CURS.LIG 
#$1F 
C,A.4 
#$0F 
CURS. COL 
SOUND 
GA. 7 
CURS.LIG 
CURS.LIG 


C:A.5 
L.LB 
C.A.5 


#$10 
L.LB 
C.A.5 
#$541 
L.HB 
AFF 
C.A.0 
CURS. COL 
AFF 
C.A.0 
AFF. 
$C010 
WAIT.KBD 


RARRRARARRARARRRARE 


*.ENTRER. UN.BLOCK. * 


KARRRRARRRRRRRHRARE 


C.B:. STA 
LDA 
STA 
LDA 


$C010 
#506 
LIG 
#508 
COL 
#520 
CAR 
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C.B.3 
C.B.4 


COL.LIG 
#500 
$Co000 
C.B.1 
INTER 
TEST.. 


C.B.2 
AFF... 
SOUND 


$Cc010 


WAIT.KBD- 


INTER 
#57F 
$310,X 
#50D 
C.B.4 


#$503 
C.B.3 
INTER 
CAR 
COL.LIG 
#$20 
CAR 

COL 
COL.LIG 


$co010 
C.B.1 


#$0D 
$310,X 
#500 
C.B. 7 
#510 
$B8 
#$03 
$B9 
FRMNUM 
AYINT 
$AO 





#501 
C.B.6 
DISK.H 
$A1 
DISK.L 
AFF.. 
$c010 
WAIT.KBD 
#$02 

Ci B7 
$A1l 

#518 
C.B.7 
$A0 
DISK.H 
C.B.5 
AFF... 
SOUND 
$C010 
WAIT.KBD 


ARARRRAARRÉRRRAR HE EX 


 *, CHANGER.DE.DRIVE.* 


RARAARRARRAARAARÉR REX 


c.c. LDA 
CMP 


TABLE+1 
#$E0 
C.c.1 
#$E0 
TABLE+1 
#506 
LIG 
#51B 
COL 
#5B1 
CAR 
COL.LIG 
COL 

COL 
#$32 
CAR 
COL.LIG 
C:C:2 
#560 
TABLE +1 
#506 
LIG 
#51B 
COL 
#531 
CAR 


C.C.2 STA 


COL.LIG 
COL 

COL 

# $B2 

CAR 
COL.LIG 
$C010 
WAIT.KBD 


RRRRRRRRRAARRRARAARER Et EE 


*. SAUVER. SUR. DISQUETTE. * 


RARRARARARARRRRRRÉARRRRRÉRRÉ 


C.s. JSR 
DFB 


ERREUR.S JSR 


$BF00 
$81 
TABLE 
ERREUR.S 
$C010 
WAIT.KBD 
ERROR 
AFF. 
$co010 
WAIT.KBD 


RRRRRRRRRRRRRRRRRRRÉRARÉRE 


*, "SWITCHER".CARACTERES. * 


RRRRARRRRRRRRÉRRRRRRRRARÉRRÉ 


C.X. LDA 


C.X.2 JSR 


UMP 


SWITCH 
C.X.1 
#500 
SWITCH 
C.Xx.2 
#$01 
SWITCH 
AFF. 
$C010 
WAIT.KBD 


RRARARRARAARÉRRRRRRRRRRRRÉ 


*, SORTIR. DU. PROGRAMME. * 


RRRRRARRRÉRRRRRÉARARRRRE EX 


ESC JSR 
JSR 
LDA 
JSR 


RESETIO LDA 


SOUND 
SOUND 
#21 
COUT 
#3 
SAVE, X 
$36,X 


RESETIO 
HOME 
SOUND 
SOUND 
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STA $C010 STA $C010 JSR COL.LIG 


RTS JSR AFF. INC COL 
RRRRRRARRÉARRAÉRRRRRÉRÉRÉRRÉÉ JSR SOUND LDA #$55A AAC. C3 
*, ENTRER. UNE. VALEUR. HEXA. * JMP WAIT.KBD STA CAR 
RHRRARRRRRRRRRRÉRÉRÉRÉRARÉREE ENT.CAR6 CMP #$C1 YSR COL.LIG 
ENT.CAR STA $C010 BCS ENT.CAR7 CADRE.2 INC LIG 

STA CAR SEC LDA #$00 

LDA CURS.COL SBC #$B0 STA COL 

LDX #$03 UMP ENT.CARB8 LDA #$5A Lez 
ENT.CAR1 DEX ENT.CAR7 SEC STA CAR 

BEQ ENT.CAR2 SBC #$B7 JSR COL.LIG 

ere ENT.CAR8 ORA INTER INC COL 

ADC CURS.COL STA INTER LDA #$A0 lo 

JMP ENT.CARI1 LDA CURS.LIG STA CAR 
ENT.CAR2 CLC ASL JSR COL.LIG 

ADC #509 ASL INC COL 

STA COL ASL LDA #$A4 ad tt 

LDA CURS.LIG ASL STA CAR 

ASL CEC UJSR COL.LIG 

ASL ADC CURS.COL LDA #$5F FiLbeU 

ASL SEC STA CAR 

ASL SBC L.LB LDA #77 

SEC TAY STA COL 

SEC "L.LE LDA INTER JSR COL.LIG 

LSR STAU (LS LB), Y INC COL 

LSR STA $CO010 INC COL 

LSR JSR AFF. LDA #$5A ue 

LSR JMP WAIT.KBD STA CAR 

CLC RARRARRRARRARNRRRRÉRÉARRÉÉÉÉERE JSR COL.LIG 

ADC #508 : *, TRACE. DU. CADRE. ENTOURANT. * LDA #23 

STA LIG *,LE.CONTENU. DU.BUFFER..... * CMP LIG 

USR COL.LIG RRRRRERRRÉRRÉRRRARRRARÉRRÉRÉ BNE CADRE, 2 

LDA CAR CADRE LDA #$5A Fur INC LIG 

CMP #$C1 STA CAR LDA #$00 

BCS ENT.CAR3 JSR COL.LIG STA COL 

SEC LDA #$4C Lg it LDA #$5A sg 

SBC #$B0 STA CAR STA CAR 

JMP  ENT.CARA4 INC COL UJSR COL.LIG 
ENT.CAR3 SEC CADRE.1 JSR COL.LIG LDA #$DF enr 

SBC #$B7 INC COL STA CAR 
ENT.CAR4 ASL LDA #77 INC COL 

ASL CMP COL CADRE.3 JSR COL.LIG 

ASL BNE CADRE.1 INC COL 

ASL LDA #$5F SVM LDA #77 

STA INTER STA CAR CMP COL 
ENT.CARS LDA S$C000 JSR COL.LIG BNE CADRE.3 

BPL ENT.CAR5 INC COL LDA #$5F nb 

JSR TEST LDA #$A0 pile STA CAR 

BCS ENT.CAR6 STA CAR JSR COL.LIG 
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INC 
LDA 
STA 
JSR 
INC 
LDA 
STA 
JSR 
RTS 








COL 

#$A0 RU 
CAR 
COL.LIG 
COL 
#$52 
CAR 
COL.LIG 


2: TR" 


RRARRRRRRRRRRÉÉARÉRÉERERÉR ER EX 


*, AFFICHER.CONTENU.DU.BUFFER. * 


RARE AREÉE EE 


AFF LDA 
STA 
LDA 


AFFO ÆPHA 


AFF1 LDA 
AFF2 JSR 


AFF3 PHA 


” #$03 


L.LB 
AFFI.L 
L.HB 
AFFI.H 
#$07 ; LIG8 

AFF4 


BASCALC 


$24 ;: CH 
AFFI.H 
#$01 
AFF1 
#$B1 
AFF2 
#$B0 
COUT 
AFFI.L 
PRBYTE 
#$A0 
COUT 
#$A0 
COUT 
#$00 


AFFS5 


AFF6 


#$A0 
COUT 


(AFFI.L),Y 
PRBYTE 


#$A0 

COUT 

#$A0 

COUT 

#$BA Peu 
COUT 

#$A0 

COUT 

#60 

COL 


LIG 
#$00 


(AFFI.L),Y 
INTER 
SWITCH 
AFF6 
INTER 
AFFS5 
#580 
INTER 
AFF6 
: ddr 
INTER 
INTER 
CAR 
Pb de à 
ICONE SR 
COL.LIG 
ICONE Pret 
COL 


#16 
AFF4 


LDA AFFI.L 
ADC #16 
STA AFFI.L 
LDA #$00 
ADC AFFI.H 
STA AFFI.H 


JUMP AFFO 
AFF7 RTS 


RRARARRAARARRRA RAR ARR 


*, AFFICHER. BUFFER+CURSEUR. * 
thhkktttttttttttttétttt tt tt 
AFF. JSR AFF 

JSR AFF.CUR 

RTS 


RRRRRRRARRÉRARERRRRARÉRRARRAR ARE 


*, CHARGER.ET.AFFICHER.UN.BLOCK, * 
CELLES LLLLLLLLLLISLLLILLS LILI SL. 


AFF.. LDA DISK.L 
STA TABLE+4 
LDA DISK.H 
STA TABLE+5 
JSR $BFO00 
DFB $80 
DA TABLE 
BCS ERREUR 
USR AFF... 
JSR AFF. 


ERREUR JSR EFFACAGE 
JSR  ERROR 
JSR AFF... 
JSR AFF. 
RTS 


RAARRRRRRRRRRRRARÉRRRRRRRRRRÉR RÉ 


*, AFFICHER. NUMERO. DU.BLOCK. * 
RARRARRRRRRRRRÉRRRRÉRRÉRRÉRRÉR RAR RÉ 
AFF...  LDA CURS 
STA LIG 
LDA #79 
STA COL 
LDA #$5A 
STA CAR 
JSR COL.LIG 
LDA DISK.H 
LDY DISK.L 
JSR GIVAYF 
JSR  MOVAF 
LDA 4#$00 


; "2" 
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LDY #14 AFF....1 DEX JSR BASCALC 
JSR GIVAYF BEQU AFF, .:..2 LDA CURS.LIG 
JSR FDIVT CLC ASL 
JSR MOVAF ADC TABLEI1 ASL 
LDA #$00 JUMP AFF. 1 ASL 
LDY #4 AFF .2 CLC ASL 
JUSR GIVAYF ADC #$08 STA INTER 
JSR FADDT STA $24 ; CH BCC AFF.X1 
JSR AYINT LDA TABLE1+1 :LIG LDA #"1" 
LDA $A1 ASL JMP  AFF.X2 
STA CURS ASL AFF.X1 LDA #"0" 
STA LIG ASL AFF.X2 JSR COUT 
LDA #$20 ASL LDA CURS.COL 
STA CAR SEC ORA INTER 
JSR COL.LIG SBC L.LB JSR PRBYTE 
LDA #$05 :LIG6 LSR LDA CURS.COL 
JSR BASCALC LSR LDX #$03 
LDA #$08 :COL8 LSR AFF.CUR1 DEX 
STA $24 : CH LSR BEQ AFF.CUR2 
LDX DISK.L CLC CLC 
LDA DISK.H ADC #$07 ADC CURS.COL 
JSR LINPTR JSR BASCALC JMP AFF.CUR1 
LDA DISK.H LDA #$A0 AFF.CUR2 CLC 
BNE AFF...2 JSR COUT ADC #$08 
LDA DISK.L LDA TABLE1+1 STA $24 : CH 
CMP #564 ASL LDA CURS.LIG 
BCS  AFF...2 ASL ASL 
CMP  #$0A ASL ASL 
BCS AFF...1 ASL ASL 
LDA #$A0 CLC ASL 
JSR COUT ADC TABLE SEC 
AFF...1 LDA #$A0 SEC SBC L.LB 
JSR COUT SBC L.LB LSR 
AFF...2 LDA #$0E TAY LSR 
STA $24 ;: CH LDA (L.LB),Y LSR 
LDA DISK.H JSR PRBYTE LSR 
BEQ AFF...3 LDA #$A0 CLC 
LDA #"1" JSR COUT ADC #$07 
JMP AFF...4 JMP AFF.CUR JSR BASCALC 
AFF :39 LDA #"0" KRRRRRRRRRRRRRRRRRARÉARÉ LDA FLE LS 
AFF...4 JSR COUT *. AFFICHER .LE.CURSEUR. * JSR COUT 
LDA DISK.L RRRRRRRRRRRRRÉÉÉRÉEÉ REA LDA #$3F 
JSR PRBYTE AFF.CUR LDA CURS.COL STA $32 
RTS STA TABLE1 LDA CURS.LIG 
ARRARÉRÉERRRRÉRRÉRRRRÉARÉÉÉÉÉÉÉ EEE LDA CURS.LIG ASL 
*. EFFACER .ET.AFFICHER.CURSEUR. * STA TABLE1+1 ASL 
RARRRARRRARARRÉRÉÉRE RÉ EEE EN ÉÉ EE LDA #40 ASL 
AFF.... LDA TABLEI ; COL STA $24 ; CH ASL 
LDX #$03 LDA #$05 CLC 





Pom's n° 25 17 





ADC CURS.COL 


SBC L.LB 


LDA (L.LB),Y 
JSR PRBYTE 
LDA #$FF 

STA $32 

LDA #"<" 

JSR COUT 


ARÉARRARRRARRRRÉRÉRREX 


*.EFFACER. LE. BUFFER. * 
ARRRARRARRRRRÉRÉARRAREE 
EFFACAGE LDA #$40 
STA HB 
LDA #$00 
STA LB 
LDY #$00 
EFF.1  LDA #$00 
STA ‘(LB),Y 
INY 
BNE EFF.1 
LDA 4#541 
STA HB 
LDY #$00 
EFF.2  LDA #$00 
STA (LB),Y 
INY 
BNE EFF.2 
RTS 


RRRRARARARÉRRRRAARARAARARÉRÉ RE 


*, ROUTINE .DE. TRAITEMENT. DES. * 


*,ERREURS.DU.DISQUE.......,.. x 
CTELLILILILIILIIIT III 11111111. 
ERROR LDA #$08 

STA LIG 

JSR ERROR. 


LDA #<ERROR. 0 
LDY  #>ERROR.O0 
JSR STROUT80 
JSR ERROR. 

LDA #<ERROR.1 
LDY #>ERROR.1 
JSR STROUT80 
JSR ERROR. 

LDA #<ERROR.2 
LDY  #>ERROR.2 
JSR STROUT80 


; NORMAL 





JSR ERROR. 
LDA #<ERROR.1 
LDY #>ERROR.1 
JSR STROUT80 
USR ERROR. 
LDA #<ERROR.3 
LDY #>ERROR.3 
JSR STROUT80 
LDA #<ERRORA4.1 
LDY #>ERRORA4.1 
BIT ICONE 
BMI ERICON 
LDA #<ERRORA4.2 
LDY #>ERRORA4.2 
ERICON JSR STROUT80 
JSR ERROR. 
LDA #<ERROR.1 
LDY #>ERROR.1 
JSR STROUT80 
JSR ERROR. 
LDA  #<ERROR.S5 
LDY #>ERROR.S5 
JSR STROUT80 
JSR ERROR. 
JSR  SOUND 
JSR  SOUND 
STA $CO010 
ERRORO LDA $CO000 
BPL ERRORO 
CMP #$8D 
BEQ ERRORI 
STA $CO010 
JSR  SOUND 
JUMP  ERRORO 
ERROR1 RTS 
ERROR. LDA #27 


STA COL 

RTS 
RARRRRRRRRÉRRERÉÉRERRARERÉÉAR ER 
PA ere ee eine see A Ne ee **# 
**, UTILITAIRE. LIGNE. COLONNE. ** 
** **x 


HRRRARRRRRRARARARÉRARARRÉ EEE EE 


COL.LIG LDA LIG 
JSR CALCUL 
LDA COL 
LSR 
BCS COLONNE 
STA STO80.1 


COLONNE 


X1 
X2 


X3 


X4 


X5 


X6 


CALCUL 


CALI1 


CAL2 


SUITE 


PAGE2 


COLONNE 


PAGE1 
STO80 


END 


.0 
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R.S.P.D.: Utilitaire de Lecture et d'Ecriture sur disks ProD0S par Marc ROGLIANO 
Commandes:| € > t + : Deplacements sur l'ecran |*A : Entrer caracteres 
RSS #$ < > : Deplacements sur Disquette |"B : Entrer un Block 

(ESC: & € > : Deplacements <*10) *C : Changer de Lecteur 
Quitter) ESPACE : Changer de Page *S : Sauver sur Disquette 
BLOCK: 2 <$002) DRIVE: H/2 OCTET: $113 “X : Swuitcher Caracteres 






















$020 00 00 C3 27 OD 05 00 06 00 18 01 26 50 52 4F 44 : ..C'ME.F.XA&PROD 
$030 4F 53 00 00 00 00 00 O0 O0 00 00 FF 08 O0 Î1E O0 : OS......... “HE 
$040 00 3A 00 00 00 00 00 00 00 21 00 20 O0 O0 O0 O0 : .:....... Ie 
$050. O2 00 2C 42 41 53 49 43 2E 53 59 53 54 45 4D 00 : B.,BASIC.SYSTEH. 


$060 O0 00 FF 26 00 15 00 00 28 00 00 00 O0 O0 00 O0 : ..>&.U..c....... 
23070 * 21.00 20 00 00 00 00:02 O0 26.92 28,29 2550 2 : |. ..:B.R:S-F. 
$080 44 2E 53 4F 55 52 43 45 00 04 3B 00 29 00 00 50 : D.SOURCE.D;.3..P 
$090 O0 O0 00 00 00 00 00 21 O0 O0 00 00 00 O0 02 O0 : ....... LESC B. 
$0RO 2D 52 2E 53 2E 50 2E 44 2E 4F 42 4f 45 54 00 00 : -R.S.P.D.OBJET.. 


$0BO 06 64 00 09 00 45 OF O0 94 AC 00 00 00 O0 21 00 : Fd.l.E0.T,....1!. 
$0CO 60 00 00 00 00 02 00 17 53 54 41 52 54 55 50 O0 : ‘....B.WSTARTUP. 
$0D0O O0 00 00 00 00 00 00 FC 6C O0 O1 00 1D O0 00 00 : ....... ul A1 


$0EO 00 00 00 00 00 E3 01 08 00 O0 O0 00 02 00 00 53 : ..... ChH'-.-8.:5 
$O0FO O0 00 00 00 00 00 00 00 00 O0 00 00 00 O0 O4 6E : .............. Dn 
$100 O0 29 00 00 50 00 00 00 00 O0 00 00 E3 00 00 00 : .2..P....... cc. 
$110 O0 00 00>##%<00 00 00 00 00 00 00 00 O0 O0 00 00 : ...B............ 





BOUCLE CLC BIT SPKR LDA (LB.),Y 
LDA #$80 TAY BNE STR.40. 
ADC LB SOUND4 DEY PLA 
STA LB BNE  SOUND4 RTS 
LDA #$00 SBC #$01 STR. 40. JSR COUT.40 
ADC HB BEQ SOUNDI PLA 
STA HB BIT SPKR TAY 
DEX DEX INY 
BNE BOUCLE BNE  SOUND2 UMP STR.40 
END RTS RTS COUT.40 CMP #$8D 
CERSSELILSELS SLI RRRARÉRRRARRRRÉRRRRRÉRÉRÉE BEQ RET40 
MONS Se elals lai ele xx ERP sn ee ls Ut esse re ** STA CAR 
#*,,. SOUND..** **,,STROUT.6&.COUT..** JSR COL.LIG 
Eee cle ee le ** MN Se elle Nada es She pee x INC COL 
LÉRSSLLSLÉELSSSLS RRRRRRRARRÉRRARRARRÉÉ INC COL 
SOUND LDX #$FF STROUT40 STA LB. RTS 
SOUND1 LDA #558 STY HB. RET40 INC LIG 
SOUND2 LDY #51B LDY #$00 LDA #$01 
SOUND3  DEY STR.40  TYA STA COL 
BNE  SOUND3 PHA RTS 
STROUT80 STA LB, 
DRE PSN RS NE LS STY HB. 
6E48- D6 C5 BA AO 31 AF B2 A0 6EC8- 69 73 71 75 65 74 74 65 LDY #500 
6E50- AO CF C3 D4 C5 D4 BA AO 6EDO- BC BC BC AO 5F 8D 00 5A STR.80  TYA 
6E58- A4 AO AO AO AO AO AO A0 6ED8- AO AO AO AO AO C1 DO DO PHA 
6E60- AO AO 5F DE D8 AO BA A0 6EEO- D5 D9 C5 DA A0 D3 D5 D2 LDA (LB.),Y 
6E68- D3 F7 E9 F4 E3 E8 E5 F2 6EE8- AO 00 4D AO AO AO AO AO pen En à dd 
6E70- AO C3 El F2 El E3 F4 E5 6EFO- AO 5F 8D 00 D2 C5 D4 D5 in 
6E78- F2 E5 F3 AO AO 5F AO A0 6EF8- D2 CE A0 5F 8D 00 AO 4C RU D ve an 
6E80- 5A 8D 00 AO DF DF DF DF éF00- 4C 4C 4C 4C 4C 4C 4C 4C 
6E88- DF DF DF DF DF DF DF DF 6FO8- 4C 4C 4C 4C 4C 4C 4C 4C ue 
6E90- DF DF DF DF DF DF DF DF 6F10- 4C 4C 4C 4C 4C 4C 4C A0 FRA 
6E98- DF DF DF DF AO 8D 00 5A 6F18- 00 C9 CC A0 C6 C1 D5 D4 Me 
6EAO- AO AO AO AO AO AO AO AO 6F20- AO D5 CE C5 AO C3 C1 D2 COUT.80 CMP #$6D 
6EA8- AO AO AO AO AO AO AO AO 6F28- D4 C5 AO B8 BO AO C3 CF BEQ RET80 
6EBO- AO AO AO AO AO AO AO A0 6F30- CC CF CE CE C5 D3 00 BF STA CAR 
6EB8- 5F 8D 00 5A AO BE BE BE 6F38- 19 04 00 00 00 00 00 00 JSR COL.LIG 
6ECO- 05 72 72 65 75 72 20 04 6F40- 00 00 00 00 00 INC COL 
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RTS 
INC 
LDA 
STA 
RTS 


RET80 





LIG 
#500 
COL 


RARRARRRRHRRAR EE 


ARRRARRAARÉRARÉE 


PRES. 0 DS 


PRES. 1 DS 


PRES,2 DS 


PRES. 3 DS 


4, $8D 

(CA 
2350 

$8D 

FLE 

$5A 

DATE 
$5F, $8D 
Fe 

$5A 

Gorreurt 

Re SP De rm 
BAR 
$5F,$8D, $00 
ZhmEn 

$5A 

Gr 

DT 

g, mur 

$5F, $8D 

FR 

$5A 

“ (Read & Save Pro 
Dos) " 

$5F, $8D 
FAURE 

$5A 

23372" 

$5F, $8D, $00 
AE AT 

$5A 

" Utilitaire de Le 
cture " 
$5F, $8D 
PUR 

$5A 

" et d'ecriture di 
recte "” 
$5F, $8D 
ANA 

$5A 

" sur Disquettes P 
roDOS " 
$5F, $8D 

A alUe 

$5A 

PE PNA 
$5F, $8D, $00 
FAT 

$5A 

cd par Marc ROGLI 
ANO Le 
$5F, $8D 

7, Er 


$5A 


PRES.4.1 


PRES.4.2 


AAA0 


AAAO.1 


AAA0O.2 


AAA1 


AAA1.1 


AAA1.2 


AAA2 


AAA2.1 


AAA2.2 


DS 
DFB 
DS 
DS 
DS 
DS 
ASC 
DFB 
DFB 
DS 
DS 
DFB 
ASC 
DFB 
DS 
DS 
DFB 
ASC 


DFB 
ASC 
DFB 
DFB 
DFB 
ASC 
DFB 
ASC 


DFB 
ASC 


DS 
DFB 
DS 
DS 
DFB 
DFB 
DFB 
ASC 


DFB 
ASC 


DFB 
DFB 
ASC 


DS 

DFB 
DFB 
ASC 
DFB 
DFB 
DFB 
ASC 


DS 
DFB 
ASC 


23 PTT 

$5F, $8D 

1: ai LL 

23, $4C 

4, $8D 

15,10 

"Appuyez sur " 
$00 

$4D, $AO, $4E, $8D 
LISA 

13,$4C 

$8D,$00 

"RETURN " 

$20, $8D 

15°" "” 

18, $4C 

$8D, $00 

TRES PDT AUtITIEA 
ire de Lecture et 
d'Ecriture sur dis 
ks ProDOS par Marc 
ROGLIANO" 

$8D 

"_ Commandes:" 
$5A, $A0, $00 

$48, $AO, $55, $AO 
$4B, $AO, $4A, $00 
"fleches" 

$00 

" : Deplacements s 
ur l'ecran " 

$5F 

"À : Entrer carac 
teres" 

dE 

$5F, $8D 

LATE 

9, $4C 

$AO, $5A, $A0, $00 
$40,$A0,$48 

$A0O, $55 

" : Deplacements s 
ur Disquette " 

$00 

"Pomme fermee <- - 
> : ‘' sur Disque 
$00 
$5F 
Labs) : Fe 
ock" 
gun " 
$5F, $AO 

$AO, $51, $8D 

dé (ESC: Le 
$5A, $A0, $00 

$41, $AO 

$48, $A0, $55 

" : Deplacements ( 
*10)" 


Entrer un B1l 


IQ 

$00 

"Pomme ouverte <- 
CAEN 5-3 0 3 APE GNT FI 


AAA3 


ERROR. 0 


ERROR. 1 


ERROR. 2 


ERROR.3 


ERRORA4.1 


ERROR4.2 


ERROR. 5 


MESSERR 


SAVE 
TABLE 
TABLE1 


DFB 
DFB 
ASC 


DS 

DFB 
DFB 
ASC 
DFB 
ASC 


DS 
DFB 
ASC 


DFB 


ASC 
DS 

ASC 
DFB 
ASC 
DS 

DFB 
ASC 


DFB 
DFB 
ASC 
DS 

ASC 
DFB 
DFB 
DS 

DFB 
DFB 
ASC 
DFB 
DFB 
DFB 
DFB 
ASC 
DFB 
DFB 
DS 

ASC 
DFB 
DFB 
DS 

DFB 
ASC 
DFB 
ASC 
DS 

ASC 
DFB 
ASC 


DFB 
DFB 
DS 
DS 
EQU 


"1C : Changer de L 
ecteur" 

Ke ol 

$5F,S$A0, $AO 
$5A, $ 8D 

Le Quitter) " 

$5A 

" ESPACE : 
r de Page" 
JOINT 

$5F 

"AS : Sauver sur D 
isquette ” 

$5F, $AO, $AO, $5A, 
$8D 


Change 


" BLOCK:" 

SEAT 

"($ ) DRIVE: " 
$31 

N/PENOCTETI ST 

9, " " 

$5F 

"nX : Switcher Car 


acteres " 

$5F, $A0, $AO 
$5A, $8D, $00 
LA 

$8D, $00 

$5A 

Laon 

$5F, $8D, $00 
$5A, $AO 

">>>" 
$05,$72,$72,$65 
$75,$72,$20, $04 
$69,$73,$71,$75 
$65,$74,$74,$65 
Lol, 5 Si 

$AO, $5F, $8D, $00 
$5A 

RATE 

"APPUYEZ SUR " 
$00 

$4D 

BOT 
$5F,$8D, $00 
"RETURN " 

$5F, $8D, $00 


24,$4C 

mn" 

$00 

"IL FAUT UNE CARTE 
80 COLONNES" 

$00 

$BF, $19, 504 

4 

Z 


* 
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Roland Jost 


oici un programme qui 

permet de manipuler des 

images graphiques en 

donnant des effets de 
miroir. Il est aussi le prétexte à 
une étude de l'organisation des 
pages graphiques de Apple. Il 
permet aussi d'illustrer le difficile 
compromis entre gain de temps et 
gain de place. 


La page graphique 
de l'Apple 


La haute résolution de l'Apple est 
de 280 x 192 = 53760 points. Or 
une page HGR ne mobilise que 
8192 octets. Ceci est obtenu en 
stockant l'état de 7 points 
consécutifs d'une ligne dans les 
bits O0 à 6 d'un octet, le bit 7 
contenant le mode couleur. On 
réduit ainsi de 8 fois la taille 
mémoire nécessaire pour la page 
graphique. L'inconvénient est que 
cela ne facilite pas l'adressage 
point par point. Le problème 
serait assez simple à résoudre, 
mais l'écran HGR est divisé en 3 
zones de 8 groupes de 8 lignes. 
En mémoire, les 192 lignes de 40 
octets ne se suivent donc pas de 
facon séquentielle (cf les adresses 
des lignes dans POM'S n°1). Ces 
adresses peuvent se calculer, par 
exe DRE par la formule utilisée 
dans Édigraph (POM'S n°21). 

Mais même en assembleur, ce 
calcul prend du temps, surtout s'il 
doit être répété de nombreuses 
fois. Une méthode plus rapide, 
utilisée dans de nombreux jeux est 
l'utilisation d'une table 
d'adresses, en fait de deux tables, 
la première contenant l'octet bas, 
la seconde l'octet haut. Cette 
méthode a l'inconvénient de 
prendre beaucoup de place (384 
octets). On peut trouver un 
compromis entre ces deux 
méthodes en utilisant la régularité 
de la table pour huit lignes 
successives. La table est alors huit 
fois moins importante (seulement 
48 octets). Il faudrait également 





TAYy 
à 
FARRFAS 
À \l : 
# À EE DR 
ke * wi: 
$ 


une table des octets hauts 
différente pour la page HGR et 
pour la page HGR?2. Une table 
unique suffit, à condition de 
rajouter la valeur contenue dans 
$E6 ($20 pour la page HGR, $40 
pour la page HGR2). JANUS 
sera donc actif sur la page en 
cours, sans qu'il soit nécessaire 
de spécifier son numéro. Au prix 
d'un léger ralentissement du 
programme (environ un centième 
de seconde), on parvient donc à 
réduire l'encombrement de la table 
des adresses de 476 octets à 
seulement 48 octets. 


Miroirs 
Obtenir l'image dans un miroir 
d'une page graphique est facile 


quand on a calculé les adresses 
des lignes. 


Pour un miroir horizontal, il suffit 
de permuter la première ligne avec 
la dernière, la deuxième avec 
l'avant-dernière, etc. 


Pour un miroir vertical, le 
principe est de permuter la 
colonne 0 (192 octets) avec la 
colonne 39, la colonne 1 avec la 
colonne 38, etc. Mais il faut de 
plus prendre l'image dans un 
miroir des bits 0 à 6 de chaque 
octet sans toucher au bit 7, 
c'est-à-dire passer par exemple de 
01101000 à 00001011. 


Là encore ce travail peut être 
effectué soit par un sous- 
programme comme celui qui est 


Comment Faire fs 


Saisir puis sauvegarder la récapitulation JANUS. 
Dans un programme Basic, il faut, pour bénéficier des effets de 
miroirs, charger la routine par BLOAD JANUS (se reporter au 
programme de démonstration). 


Les possibilités de la routine sont les suivantes : 


36864,x,0 Retournement horizontal 

36864,V,0 gauche <=> droite 

36864,H,1 Moitié supérieure réfléchie dans moitié inférieure 
36864,V,1 Moitié gauche réfléchie dans moitié droite 


De plus, on dispose des combinaisons suivantes : 


36864,H,0 


CALL 36864,H,1 


Moitié gauche dans partie droite 


36864,V,0 


CALL 36864,H,0 


Rotation 180", combinaison des 2 symétries 
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22 


présenté ci-dessous, soit à l'aide 
d'une table. 
ROLL STA $08  ; sauve l'octet à 
inverser 


ROL À ; le bit 7 est mis 
dans la retenue 

ROL À ; décale À à gauche et 
retenue dans bit O 

LDY #$07 ; il faut le faire 7 
fois 

ROLL1 LSR 508  ; le bit 0 est mis 

dans la retenue 

ROL À ; retenue dans bit O0 
et décale à gauche 

DEY 

BNE ROLLI1 

RTS 


Avec Ia première solution 
l'inversion se fait en plus d'une 
seconde ; avec la seconde le 
programme va trois fois plus vite. 
Ceci s'explique facilement par le 
fait que chacun des octets doit être 
permuté, soit 8192 permutations. 
Le moindre gain de vitesse à ce 
niveau est donc plus 
qu'appréciable. C'est pourquoi 
nous choisirons cette dernière 
méthode. 


JANUS permet encore d'obtenir 
dans la moitié inférieure de 
l'écran, le reflet de la partie 
supérieure. De même pour les 
parties gauche et droite. Il s'agit 
dans les deux cas d'arrêter la 
recopie au milieu de l'écran. 


Programme 
‘JANUS.DEMO' 


10 REM DEMO.JANUS 
12 REM R.JOST 1985 
15 PRINT CHR$ (4)"BLOAD JANUS”" 


20 TEXT : HOME 

30 À = 36864 

40 N$ = "IMAGE" 

50 HGR : POKE - 16302,0 
60 GOSUB 600 

65 GOSUB 500 

70 CALL À,H,0: GOSUB 500 
80 CALL A,H,0: GOSUB 500 
90 CALL A,V,0: GOSUB 500 
100 CALL À,V,0: GOSUB 500 
110 CALL AÀ,V,1: GOSUB 500 
120 GOSUB 600 

124 CALL À,H,0: CALL À,H,1 
126 GOSUB 500: GOSUB 600 
130 CALL A,V,0: GOSUB 500 
140 CALL A,V,1: GOSUB 500 
144 CALL À,H,0: CALL À,H,1 
146 GOSUB 500 

150 GOSUB 600 


moniteur, 


9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
de) 
9 
9 
9 
9 
9 
9 
9 
9 
3 
9 
9 
9 
9 
9 
9 
9 
ï) 
9 
9 


Récapitulation ‘JANUS’ 


vous le 


000- 20 BE DE 85 EF 20 B1 00 
008- 20 F5 E6 86 1E A2 00 86 
010- EB 86 ED A2 27 86 EC A2 
018- BF 86 EE AS EF C9 48 FO 
020- 05 C9 56 FO 3E 60 E6 EC 
028- A6 ED 86 06 A6 EE 86 07 
030- A6 06 20 AD 90 85 18 84 
038- 19 A6 07 20 AD 90 85 1A 
040- 84 1B A4 EB Bl 18 A6 1E 
048- DO 06 48 Bl 1A 91 18 68 
050- 91 1A C8 C4 EC DO ED 
058- 06 C6 07 38 A5 07 ES5 06 
060- BO CE 60 E6 EE A6 ED 20 
068- AD 90 85 18 84 19 A4 EB 
070- 84 06 A4 EC 84 07 A4 06 
078- Bl 18 A8 B9 00 91 A4 IE 
080- DO OC 48 A4 07 B1l 18 A8 
088- B9 00 91 85 1C 68 A4 07 
090- 91 18 A4 1E DO 06 A5 1C 
098- A4 06 91 18 E6 06 C6 07 
0A0- 38 A5 07 E5 06 BO CF E8 
0A8- E4 EE DO BB 60 8A 4A 4A 
0B0O- 4A A8 B9 C4 90 48 8A 29 
0B8- 07 OA OA 18 79 DC 90 65 
O0C0- E6 A8 68 60 00 80 00 80 
0C8- 00 80 00 80 28 A8 28 A8 
ODO- 28 A8 28 A8 50 DO 50 DO 
0D8- 50 DO 50 DO 00 00 01 01 
0E0- 02 02 03 03 00 00 01 01 
0E8- 02 02 03 03 00 00 O1 01 
OFO- 02 02 03 03 00 00 00 00 
0F8- 00 00 00 00 00 00 00 00 


170 GOSUB 500 


180 TEXT : 


END 


500 FOR T = l TO 2000: NEXT :22Z 


36): RETURN 
600 PRINT CHRS (4)"BLOAD "NS", AS2 
000": RETURN 
Source 
[1 3 
JANUS.S 
Assembleur MERLIN 
RRRRRRRRARÉRRÉRRRRRÉRÉR ARR RE 
* * 
* JANUS * 
* * 


© © — Où Un & ON ba 


PEEK ( - 16336) + 


CÉLLLLLLELELILELLELELELLELES ES: 
* 
* R,JOST 


* Assembleur MERLIN 
* 


PEEK ( - 163 


Après avoir saisi ce code sous 
sauvegarderez par BSAVE JANUS, A$9000, 


L$200 


9100- 00 40 20 60 10 50 30 70 
9108- 08 48 28 68 18 58 38 78 
9110- 04 44 24 64 14 54 34 74 


9118- OC 4C 


2CE6CUICISCTEC7E 


DI20 0247 22 GET ZI S 2032072 
9128- OA 4A 2A 6À 1A 5A 3A 7A 
9130- 06 46 26 66 16 56 36 76 
9138- 0E 4E 2E 6E 1lE SE 3E 7E 
9140= 0147210617 1151 31071 
9148-09 49 29 69 19 59 39 79 
9501050465 25 65/1555, 35075 
9158- OD 4D 2D 6D 1D 5D 3D 7D 
9160-1003 4393 23 6301315 3%499%73 
9168- 0B 4B 2B 6B 1B 5B 3B 7B 
9170-1070 4727 67017 5705707. 
9179= OF 4F 2F 6F 1F SF 3F 7F 
9180- 80 CO AO ECO 90 DO BO FO 


9188- 88 C8 


A8 E8 98 D8 B8 F8 


9190- 84 C4 A4 E4 94 D4 B4 F4 


9198- 8C CC AC 


EC 9C DC BC FC 


91A0- 82 C2 A2 E2 92 D2 B2 F2 
91A8- 8A CA AA EA 9A DA BA FA 
91B0- 86 C6 A6 E6 96 D6 B6 F6 


91B8- 8E CE AE 


EE 9E DE BE FE 


91C0= 91 CZ AL El 91 D1 51 F1 


91C8- 99 C9 


E9 99 D9 B9 F9 


91D0- 85 C5 AS E5 95 D5 B5 F5 
91D8- 8D CD AD ED 9D DD BD FD 
91E0- 83 C3 A3 E3 93 D3 B3 F3 


91E8- 8B CB AB EB 9B DB 


BB FB 


91F0- 97 C7 A7. E7 97 D7.B7 F7 


91F8- 8F CF AF 


EF 9F DF BF FF 


REFLET D'UNE PAGE HGR 


CALL 36864,MODE, OPT 


MODE=H :MIROIR HORIZONTAL 
=V:MIROIR VERTICAL 
*OPTION=0:IMAGE DE TOUT L'ECRAN 
" =1:MOITIE ECRAN REFLECHI 

E DANS L'AUTRE 
*SUPERIEURE -> INFERIEURE 
*GAUCHE -> DROITE 


* 
* 
* Syntaxe : 
* 
* 
* 


* 
CPPETLLLLLILILLLIIIILII11111111: 
* 

* 

21 EQU $06 

22 EQU $07 

DEPART EQU $18 

ARRIVEE EQU $lA 

TAMPON EQU $1C 

OPTION EQU $IlE 

PAGE EQU $E6 

X1 EQU $EB 

X2 EQU $EC 

Y1 EQU $ED 

x2 EQU $EE 
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35 MODE 

36 

37 CHRGET 
38 CHKCOM 
39 GETBYTC 
40 * 

at 

42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 * 
66 * 
67 
68 Il 
69 


70 
va 
72 
73 BOUI 

74 

75 

76 

77 

78 

73 

80 

81 

82 

83 

84 BOU2 

85 * 

86 

87 

88 

89 

90 

91 

92 SUITI 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 
103 * 
104 * MIROIR 
105 * 
106 I2 
107 
108 BO1 


SAISIE 


# % * * 


* 








EQU 
EQU 


EQU 
EQU 


ORG 


MIROIR HORIZONTAL 





$EF 


$00B1 
$DEBE 
$E6F5 


$9000 


PARAMETRES 


CHKCOM 
MODE 
CHRGET 
GETBYTC 
OPTION 
#0 

X1 

Yi 

#39 

X2 
#191 
Y2 
MODE 
#$48 
I1 
#$56 
I2 


X2 
Y1 


21 

Y2 

Z2 

21 
CALCADR 
DEPART 
DEPART+1 


22 
CALCADR 
ARRIVEE 
ARRIVEE+1 


X1 
(DEPART), Y 


OPTION 
SUITI 


(ARRIVEE) , Y 
(DEPART), Y 


(ARRIVEE) , Y 


Xx2 
BOU2 
21 
22 


22 
21 
BOU1 


VERTICAL 


INC 


x2 


LDX Y1 


JSR 
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CALCADR 


109 
110 
111 

112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 


134 


135 
136 
337 
138 
139 
140 
141 
142 
143 
144 
145 


BO2 


SUIT2 


SUIT3 































































DEPART 
DEPART+1 


X1 
21 
X2 
Z2 
Z1 
(DEPART) ,Y 


PERMUT, Y 
OPTION 
SUIT2 


22 
(DEPART) , Y 


PERMUT, Y 
TAMPON 


22 
(DEPART), Y 
OPTION 
SUIT3 
TAMPON 

Z1 
(DEPART), Y 
21 

22 


22 
Z1 
BO2 


x2 
BO1 


* 


* Calcul l'adresse d'une ligne 
* 
CALCADR TXA 

LSR 

LSR 

LSR 

TAY 

LDA TABIL,Y 


AND ##00000111 


ADC TABIH,Y 
ADC PAGE 


* 


* TABLES DES ADRESSES HGR 
ol OCTET BAS 


TABIL  DFB $00,$80,$00, $80,S$ 
00, $80, $00, $80 

DFB $28,SA8, $28, $A8, $ 
28, SA8, $28, SA8 

DFB $50,$D0, $50, $DO, $ 
50, $DO, 550, $DO 


TABLES DES ADRESSES HGR 
OCTET HAUT 
RAJOUTER $20 POUR PAGE 1 

OÙ $40 POUR PAGE 2 


# % % + # * 


TAB1H DFB $00,$00,$01,$01,$ 


23 


180 


181 


192% 


DFB 


DFB 


02, $02, $03, $03 
$00, $00, $01, $01,5 
02, $02, $03, $03 
$00, $00, $01, $01,$ 
02, 502, 503, 503 


183 * TABLE D'INVERSION 


184 * 

185 

186 PERMUT 
187 

188 

189 


190 


191 


214 


DS 
DFB 


DFB 


DFB 


DFB 


DFB 


DFB 


DFB 


DFB 


DFB 


DFB 


DFB 


DFB 


DFB 


DFB 


DFB 


DFB 


DFB 


DFB 


DFB 


DFB 


DFB 


DFB 


DFB 


DFB 


DFB 


DFB 


DFB 


DFB 


DFB 


DFB 


DFB 


DFB 


$9100-* 
$00, $40, $20, $60, $ 
10,550, $30, $70 
$08,S48,S28,5$68,S 
18,558, $538,$78 
$04,5$44,$24,5S64,$ 
14,$54,$34, $74 
Soc, $4C, S2C, S6C, S 
1C; $5C, $3C, S7C 
$02,$42,$22,562,$S 
12,$52, 532, S72 
$0A, $4A, $2A, S6A, $ 
1A, S5A, $3A, $S7A 
$06, 546,526, $66,$ 
16,556, 536, $76 
$0E, $4E, S2E, $6E, $ 
1E, $5E, $3E, $7E 


$01,$41,$21,561,S 


11851, 831, 871 
$09, 549, $29, $69,S$ 
19,$59, $39, $79 
$05,$45,$25, $65, $ 
15,555, $35, 575 
$OD, $4D, S2D, S6D, $ 
1D, $5D, $3D, $7D 
$03, $43, $23,$63,S 
13,553, $33, $73 
$0B, $4B, S2B, $6B, $ 
18, $5B, $3B, $7B 
$07,547,$27,S67,$ 
17,557, S37,S77 
$OF, $4F,$2F,$6F,S 
1F,$5F, S3F, $7F 


$80, $CO, SAO, $EO, $ 
90, $DO, $BO, $FO 
$88, $C8, SA8, $E8, $ 
98, $D8, $B8, $F8 
$S84,SC4, SA4, $SE4, $ 
94, $D4, $B4, SF4 
$8c, $CC, SAC, $EC, $ 
9cC, SDC, $BC, $FC 
$82, $C2, SA2, $SE2, $ 
92, SD2, $SB2, SF2 
$8A, SCA, SAA, SEA, $ 
9A, $DA, $BA, $FA 
$86,$C6, $A6, $E6, $ 
96, $D6, SB6, $F6 
$8E, $CE, $AE, $EE, $ 
9E, $DE, $BE, $FE 
$81, $C1, SA1, $E1,S$ 
91, $D1, $B1, $F1 
$89, $C9, $A9, $E9, $ 
99, $D9, $B9, $F9 
$85,$C5, $A5, $E5, $ 
95,$D5, $B5, $F5 
S8D, SCD, SAD, $ED, $ 
9D, $DD, $BD, $FD 
$83, $C3, SA3, $E3, $ 
93, $D3, $B3, SF3 
$8B, $CB, $AB, $EB, $ 
9B, $DB, $BB, $FB 
$87,$C7, SA7, $E7,S 
97, SD7, $B7, $F7 
$S8F,S$CF, SAF, $EF, $ 
9F, SDF, $BF, SFF 





Inhiber le Reset 
en ProDOS 


Bruno Fénart 


La méthode pour inhiber le CTRL-RESET est bien connue en DOS 
3.3 (voir “clef pour l'Apple //e” de N. Bréaud-Pouliquen aux 
Éditions du PSI, ou “All About Dos” de Call-Apple). En ProDOS, 
c'est plus compliqué car il faut revectoriser soi-même les vecteurs 
d'entrée/sortie. 


Quelle que soit la solution retenue, la routine de revectorisation devra 
réinitialiser la pile pour éviter le ‘Out Of Memory Error’ après 
quelques RESETS. La routine suivante pourrait être adoptée : 


3F2:00 03 A6 ;Revectorisation du reset 


300:A2 03 LDX #$03 

302:BD 34 BE LDA $BE34,X ;vecteurs d'E/S ProDOS 
505:95-36 STA $36,X vecteurs d'E/S 

307:CA DEX 

308:10 F8 BPL $302 

30A:A2 FF LDX #$FF ;Réinitialise la pile 
30C: 9A TXS 

30D:20 98 D8 USR $D898 ; CONT 

20H40 D2% 0/7 UMP  $D7D2 ; NEWSTART 


Cette solution peut entraîner des erreurs et elle n'est pas utilisable si 
l'affichage du programme est en 80 colonnes. C'est pourquoi on peut 
avoir intérêt à utiliser une autre solution qui consisterait non pas à 
retourner à la ligne où a eu lieu le CTRL-RESET, mais comme pour 
un traitement d'erreur, à effectuer un branchement vers une ligne 
donnée (ici vers la ligne 20). Si cette ligne n'existe pas on obtient 
"?UNDEFD STATEMENT ERROR" comme pour un GOTO sur 
une ligne non définie : 


300:A2 03 LDX #$03 

302:BD 34 BE LDA $BE34,X ;vecteurs d'E/S ProDOS 
205:95%56 STA $36,X ;vecteurs d'E/S 
307:CA DEX 

308:10 F8 BPL S$S302 

30A:A2 FF LDX #$FF ;Réinitialise la pile 
30C : 9A TXS 

30D:A9 14 LDA #$14 Ligne n°20 

30F:85 50 STA $50 ; LINNUM 

311:A9 00 LDA #$00 

CPS ICI À STA $51 ; LINNUM+1 

315 "20"41"D9 USR $D941 ; GOTO+3 

318:4C D2 D7 UMP  $D7D2 ; NEWSTART 


Le programme Basic devra alors avoir la forme suivante : 


10 GOTO 1000 

20 GOTO 1500 

1000 REM Début du programme 

1500 REM Prise en charge après le ctrl-reset 


G 
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Claude 





‘COMPDISK’ 


Vivier 


ou ‘sont-elles vraies jumelles ?” 


Qui d'entre nous n'a jamais eu 
entre les mains des versions 
“peut-être” identiques d'un jeu ou 
d'un quelconque logiciel situé sur 
des disquettes non structurées en 
fichiers et/ou protégées. Dans 
cette situation -pas quotidienne il 
est vrai- il est naturel de chercher 
à comparer de telles disquettes. 
Mais, si les programmes de 
comparaison de fichiers ne 
manquent pas sur le marché, on 
ne peut en dire autant des 
comparateurs de disquettes vues 
globalement. Une solution 
consiste à utiliser le programme 
"Zap" du Bag of Tricks en 
construisant une grosse Mmacro- 
commande, encore faut-il que les 
disquettes se laissent faire !…. 


Voici donc un programme en 
assembleur qui permet de 
comparer toutes les disquettes 
seize secteurs de format standard 
ou légèrement "hors-normes”. 


Le principe 


Il a paru intéressant de travailler 
au niveau de la piste complète 
transférée en mémoire plutôt que 
d'accéder au disque secteur par 
secteur. Bien sûr, en dernier 
ressort il faut arriver à la notion 
de secteur mais, d'une part, il y a 
gain de temps du fait du nombre 
limité d'accès disques, et ensuite 
nous sommes moins tributaires 
des gadgets des protecteurs de 
logiciels, les contrôles ayant été 
volontairement limités au strict 
nécessaire. Il n'est fait aucune 
référence à la notion de fichier. 


Utilisation 


Le programme doit être situé sur 
une disquette DOS 3.3 ou 
apparentée et nécessite deux 
lecteurs. L'affichage 80 colonnes 


et les minuscules ont été écartés 
de façon à s'adapter à toutes les 
configurations. 


Il se lance par : 
BRUN COMPDISK. 


Un premier écran demande 


+ d'installer les deux disquettes 
sur les deux lecteurs ; 
+ d'indiquer le type des 
disquettes testées (Dos, Pascal, 
Prodos, CP/M, ou Inconnu si on 
l'ignore) au moyen d'un chiffre 
de 1 à 4 ; ceci afin de pouvoir 
afficher un numéro de secteur 
correct en cas de différences. 


Il faut rappeler, en effet, que pour 
chaque système d'exploitation il 
existe une table de corrélation 
entre le numéro de secteur 
physique (celui qui est écrit sur le 
disque) et le numéro de secteur 
logique (celui par lequel 
l'utilisateur accède à ce secteur). 
Si l'on a entré l'option 4 (système 
inconnu), c'est le numéro de 
secteur physique qui sera affiché, 
bien entendu. 


Après avoir saisi et 
sauvegardé la 
récapitulation 
COMPDISK, sur une 
disquette DOS 3.3, pour 
comparer deux 
disquettes, faire : 

BRUN COMPDISK 


Comment faire ? 


puis indiquer le type de DOS 


s'il est connu. Valider alors 
par ESC ou RETURN 

selon que la disquette est 
protégée ou non. Dans le 
premier cas, vous devrez 
indiquer le prologue obtenu 
à l'aide d'un utilitaire du 
type TRAX. Le défilement 
des secteurs qui diffèrent est 
contrôlé par ESPACE. 





Le programme demande ensuite 
s'il s'agit d'une disquette normale 
(en gros, copiable par COPYA) 
ou "protégée". Dans le premier 
cas, <Return> fait partir la 
comparaison. Dans le deuxième 
cas, <ESC> amène un deuxième 
écran qui explique que les 
disques standard sont formatés 
avec, pour chaque secteur le 
prologue d'adresse D5AA96, et 
le prologue de Data DSAAAD 
(dans le programme, le nibble AD 
n'est pas exigé). Certaines 
disquettes protégées répondent à 
ce schéma, d'autres non. Il existe 
plusieurs programmes qui 
montrent ces prologues (le Trax 
du Bag of Tricks par exemple). 


Il est alors demandé ou bien de 
frapper <Return> pour accepter 
les prologues proposés, ou bien 
de saisir les prologues des 
disques à comparer. Finalement 
un <Return> de confirmation fera 
partir le programme. 


La progression du programme est 
suivie par affichage des pistes 
testées, et, en cas de différence, 
des numéros de secteur, de la 
première position différente dans 
le secteur, et pour les disquettes 
Prodos, Pascal et CP/M le 
numéro de bloc et de partie de 
bloc. En fin de parcours, on 
pourra comparer un autre couple 
de disques, sans recharger le 
programme. 


Analyse du 
programme 


Lignes 103-225 


+ Patch du programme pour 
valeurs standard des prologues. 

+ Affichage des choix. 

+ Saisie des paramètres (système 
et nibbles de reconnaissance). 

+ Patch du programme avec ces 
différents paramètres. 
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Lignes 226-250 


+ calage du bras de lecteur 2 sur 
la piste O (routine de la PROM du 
contrôleur) ; opération indispen- 
sable pour éviter de gros déboires 
dans la recherche des pistes. 


Lignes 253-307 

+ boucle générale de traitement. 
Chaque couple de pistes de 0 à 34 
est transféré en mémoire ($2000 
pour I et $4000 pour II) pour être 
comparé. À la fin, retour possible 
au début ou sortie vers le 
warmstart du Dos. 


Lignes 311-371 

* routine de Dump mémoire 
d'une piste. 

* Alimentation de la “parameter 
list” qui contrôle la procédure 
RWTS ; on met O dans le 
paramètre de "commande" 
(Search) 

* Appel à RWTS, qui amène le 
bras du lecteur sur la piste choisie 
sans manipuler encore 
d'informations. Pour cette étape, 
il n'y a pas eu de référence au 
numéro de piste codé dans le 
champ d'adresse des secteurs de 
cette piste (code fréquemment 
altéré sur les disques protégés). 

+ Lecture des nibbles de la piste 
vers la mémoire. A noter que les 
instructions 362-369 sont très 
critiques. Pour qu'il n'y ait pas 
de perte d'information, un petit 
calcul montre que le délai entre 
deux lectures de nibbles ne doit 
pas excéder 31 microsecondes, 
on y arrive tout juste. L'ensemble 
de cette routine de dump est 
valable pour les 2 pistes I et II. 
$2000 nibbles sont ainsi 
transférés, soit très largement une 
fois la piste. 


Lignes 375-423 


+ Boucle générale de compa- 
raison des 16 secteurs de la piste. 
+ Recherche du premier secteur 
disponible de la piste I, 
normalement annoncé par 
DSAA96, avec sauvegarde, en 
passant, des nibbles donnant le 
numéro de secteur (physique, 
bien sûr). 


+ Recherche du secteur 


homologue sur piste II (voir plus 
loin). 

+ Comparaison des 2 secteurs 
(voir plus loin). 





+ On continue sur le secteur 
suivant de la piste Ï jusqu'au 
16ème. À chaque fois que l'on 
explore la piste II à la recherche 
du secteur frère, on repart 
toujours du début de la piste, 
alors qu'on serait tenté, une fois 
qu'un couple de secteurs est 
accroché", de poursuivre 
l'exploration séquentiellement sur 
les 2 pistes, quitte à dumper au 
moins 2 fois la piste II. Ce choix 
a été fait afin d'éviter de déclarer 
différentes des disquettes 
formatées avec des ‘“entrela- 
cements"” différents, alors 
qu'elles sont identiques quant au 
contenu. Certains copieurs ne 
respectent pas l'entrelacement de 
l'original (COPYA par exemple 
qui commence une copie par un 
INIT standard). La perte de 
temps qui résulte de cette manière 
de faire est d'ailleurs tout à fait 
négligeable. 


Lignes 427-478 


+ Procédure de recherche du 
secteur homologue II. Dès qu'un 
secteur est trouvé, son numéro 
est testé par rapport au numéro 
sauvegardé du secteur I. Au 
début de cette routine, la frappe 
de n'importe quelle touche 
suspend le traitement. Si on ne 
trouve pas sur toute la piste (de 
même d'ailleurs pour la piste [), 
les nibbles de prologue, tels 
qu'ils ont été définis en début de 
programme, la piste est déclarée 
illisible et affichée comme telle 
(lignes 684 à 728). Dès que les 
pointeurs de balayage des 2 pistes 
sont en début de la partie Data du 
secteur, la comparaison peut 
commencer. On sauvegarde à ce 
moment les valeurs des pointeurs 
(lignes 474-478). 

Lignes 482-493 


+ Routine de comparaison des 
342 nibbles du secteur. Dès qu'il 
y a discordance, la comparaison 
est arretée et il y a branchement 
sur. 


Lignes 504-656 


+ Gestion de la première 
différence trouvée sur le secteur. 
Il s'agit de trouver la position en 
cause non pas en termes de 
nibbles mais d'octets "visibles" 
téls: «qu'on les connait 


habituellement. I1 semble, après 
longue réflexion, que la meilleure 
solution pour avoir, à coup sûr, 
la première divergence est de 
recourir à la dénibbilisation 
classique de la routine RWTS. Le 
secteur I est complètement décodé 
en $7100 (buffer secondaire en 
$7000). (Donc si on frappe sur 
Reset en cours de traitement, un 
coup d'œil en $7100 donnera le 
dernier secteur trouvé différent 
sous forme décodée). On fait de 
même pour le secteur II en 
arrêtant la procédure dès qu'il y a 
discordance (buffers en $8100 et 
$8000). La position trouvée est 
alors mise en réserve (ligne 552). 
Ensuite vient la routine 
d'affichage des résultats trouvés 
(piste, secteur logique, position), 
avec, s'il s'agit de la première 
différence trouvée, affichage d'un 
en-tête de présentation (lignes 
553 à 574). 


+ Un petit calcul (lignes 
612-656) donne le bloc en cause 
s'il y a lieu. Une petite remarque 
au sujet des instructions 545 et 
550 : il se peut que l'on trouve 
une différence à l'examen des 
nibbles et que celle-ci disparaisse 
après dénibbilisation. La raison 
en est que les nibbles de rang 
$54,55 ne sont que partiellement 
utilisés dans la dénibbilisation; 
ceci explique que le décodage du 
secteur est fait avant d'ameuter 
les populations. 


Lignes 660-905 


Routines diverses de sorties de 
message, saisie des prologues, 
conversion hexa, patches etc. 


Performances 


Durée du traitement : 

. disquettes identiques : 2 mn 
S 

Disquettes complètement diffé- 

rentes : 2 mn 205 

Temps consacré à la recherche 

des pistes : 1 mn 305 


Attention : Ce programme ne 
fonctionnera pas ou très mal avec 
des disquettes 13 secteurs. Il faut 
se méfier de certaines disquettes 
déguisées en 16 secteurs mais qui 
en fait sont des 13 secteurs. Elles 
‘bootent' normalement, mais dès 
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le premier étage du boot il y a 
transformation du Dos en l'autre 
format. 


Pour ceux qui en auraient encore 
douté, ce petit travail n'aurait pas 
pu etre fait sans références 
permanentes au livre de Don 





Worth et Pieter Lechner "Beneath 
Apple Dos", et je ne voudrais pas 
terminer sans redire, à mon tour, 
tout le bien qu'il faut penser de 
cet ouvrage. Pour les néophytes 
curieux de savoir ce qu'il y a 
réellement sur un disque, l'étude 


du chapitre 3 est passionnante. 


N.D.L.R. : il est préférable de 
faire un FP après la sortie du 
programme, voire de ‘rebooter 





Source COMPDISK.SCE 
Assembleur LISA 2.5 


PELELELLLLLLELELLELELELELEEEE EE EEE EEEETETS 


°* * 
#*# PROGRAMME DE COMPARAISON GLOBALE * 
Li DE DISQUETTES 16 SECTEURS * 
;* * 
s* C1.VIVIER  2/1/86 * 
ass * 
El LISA 2.5 * 
CÉRRRRRARRRRARARARRÉRÉARÉRARÉRRRRRRRRARAR 
NOG 


+ #* ZONES DE TRAVAIL ** 


PTR EPZ $0 «POINTEURS POUR 
DUMP 

PTR2 EPZ 52 4ET COMPARAISON 

TRACK EPZ $4 

DRIVE EPZ $5 

SCT EPZ $6 

LU + FENETRES 

WNDB EPZ $2 

HPOS EPZ $24 : CURSEUR 

VPOS EPZ $25 

CPT EPZ $80 

CPTB EPZ $82 

SVAD EPZ $84 #SAUV. NO SECT 

RTN EPZ $86 “ADR RETOUR POUR 
PRINT 

SLOT EPZ $88 

FLG EPZ $89 #AIGUILLEUR 

SVPTR EPZ $8A +SAUV. POINTEURS 

SYST EPZ $8E #IND. SYSTEME 

PROLOG  EPZ $90 PROLOG. A PATCH 
ER 

RET EPZ $8D +ASCII <RETURN> 

ESC EPZ $9B ASCII <ESCAPE> 


#* VECTEURS DU DOS ** 


VECPML  EQU $3E3 
RNTS EQU $3D9 
Dos EQU $3D0 


{4 #**# MEMOIRES-TAMPONS ** 


INPUT EQU $200 

BUF1 EQU $2000 POUR DRIVE 1 
LBUFI1 EQU $4000 :FIN BUF1 

BUF2 EQU $4000 

LBUF2 EQU $6000 

BF1S EQU $7000 :BUFFERS DE 
BF1P EQU $7100 +DENIBBILISATION 


BF2S EQU $8000 

BF2P EQU $8100 

TRANSL EQU $BA00 
Dos 


{+ #+* MEMOIRE-HARDWARE ** 


KBD EQU $C000 
KBDSTRB EQU $CO010 
DRVOEN  EQU $CO08A SELECT DR 1 
DRVIEN EQU $C08B ; DR 2 


PHASEOFF EQU $C080 
PHASEON EQU $CO81 
MOTORON  EQU $C089 
MOTOROFF EQU $C088 
26L EQU $cO08c . 
Q7L EQU $CO8E 


{ #** ROUTINES MONITEUR ET APPLESOFT ** 


MOUVEMENTS DU 
; BRAS DE LECTEUR 


:LECT DE NIBBLE 
:PREP . LECTURE 


LINPRT DEC IMALISATION 


PRBL2 


EQU $ED24 
EQU $F94A 


; TABL. CONVERSION 


TEXT EQU $FB39 
VTAB EQU $FC22 
HOME EQU $FC58 


CoUT EQU $FDED 
PRBYTE  EQU $FDDA 
BELL EQU $FF3A 
ORG $7FD 
JMP DEBUT 
PML DFS 1 :INDEXATION DE 
LA PML 
PSLOT DFS 1 
PDRV DFS 1 
PVOL DFS 1 
PTRK DFS 1 
PSEC DFS 1 
PDCT DFS 2 
PBUF DFS 2 
PBID DFS 2 
PCM DFS 1 
PERR DFS 1 
PVNF DFS 1 
PSLF DFS 1 
PDRF DFS 1 


4 **  DEBUT DU PROGRAMME ** 


HEX 8D 
INV ‘ 
HEX 8D 
INV ' DISQUES 16-SCT ‘ 
HEX 8D 


COMPARATEUR DE ‘ 


HEX 00 

JSR DEPATCH 
STANDARD 

LDA #5 

STA WNDT 

JSR HOME 
OPTIONS 

JSR PRINT 

ASC "- INSTALLER LES DISQUES A COMPA 
RER" 

HEX 8D8D 

ASC "- PRECISER LE SYSTEME D'EXPLOIT 
ATION" 

HEX 8D8D 


RESET DES PROL. 


: FENETRE 
AFFICHAGE 1ERES 


ASC " -> DOS" 


” -> PASCAL ET PRODOS" 


" " 


" -> CP/M" 


" ” 


ASC " -> INCONNU (SECTEUR PHYSIQUE) 
HEX 8D8D00 
go BIT KBDSTRB 


PE LDA KBD {PREMIER CHOIX 


:SAUV. SYSTEME 


car le DOS est modifié. é 


ASC "- PUIS, S'IL S'AGIT DE DISQUETT 
ES NON" 
HEX 8D8D 


ASC " PROTEGEES FRAPPER <RETURN 


SINON FRAPPER <ESC>" 


F3 BIT KBDSTRB 
r4 LDA KBD 


25 CMP 4#ESC 


PROL JSR HOME 

SAISIE PROLOGUES 

JSR PRINT 

ASC "LE PROGRAMME RECONNAIT LES DISQ 
UES AVEC" 

HEX 8D8D 

ASC " LE PROLOGUE D'ADRESSE : " 

INV "D5AA96" 

HEX 8D8D 

ASC " LE PROLOGUE DE DATA 2: 

INV "D5SAA--" 

HEX 8D8D 

ASC "- S'IL EN EST AINSI, FRAPPER <R 
ETURN> " 

HEX 8D8D 

ASC "- SINON ENTRER LES PROLOGUES" 

HEX 8D8D 


AFFICHAGE POUR 


D'ADRESSE: " 


DE DATA : " 


et LDA KBD CHOIX 2 


:SAISI PROLOGUES 


STA HPOS 

JSR VTAB 

JSR PRINT 

ASC "CONFIRMEZ-VOUS ? OUI -> <RETUR 


HEX 8D8D 
ASC " NON -> <ESC>" 
Fe BIT KBDSTRB 

x | LDA KBD 


CMP #RET 
BEQ >4 
CMP #ESC 
BNE <2 
JMP PROL 
Li | JSR NUMPRO 
PROLOG . 
JSR PATCH 
OLOGUES 
BIT KBDSTRB 
JSR PATSYS 
STEME 
JSR HOME 
LDA #22 
JSR TRAIT 
JSR PRINT 
ASC "<ESPACE> POUR SUSPENSION ET REP 
RISE" 


{CONVERSION HEXA 


;PATCHES POUR PR 


START 
PATCHES POUR SY 
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HEX 00 -LDA TRACK STA (PTR),Y 
LDA #10 JSR PRBYTE LDY #PCM 
STA VPOS JSR DUMP ;LECTURE D'UNE P LDA 40 :CDE "SEARCH" 
JSR VTAB ISTE I STA (PTR),Y 
LDA #22 LDA #2 LDY #PDRV 
STA WNDB STA DRIVE LDA DRIVE 
LDA 40 JSR DUMP :LECT. MEME PIST STA (PTR),Y 
STA TRACK E II LDY #PVOL 
STA FLG JSR COMPARE ; --> COMPAR LDA #0 
JSR VECPML id À INC TRACK “PISTE SUIVANTE STA (PTR),Y 
STY PTR LDA TRACK LDY #PVNF 
STA PTR+1 CMP 4523 :JUSQU'A 35EME STA (PTR),Y 
LDY 4PSLOT :CHERCH PORT DSQ BCC BOUCLE JSR VECPML :CALL DE "RWTS" 
LDA (PTR),Y JSR BELL JSR RATS 
STA SLOT LDA FLG LDA #0 “APRES 
TAX BNE >1 STA $48 UN CALL DE RWTS 
LDA DRVIEN, X ;CALAGE DU BRAS JSR HOME LDY #PSLOT 
DE DR 2 LDA #10 LDA (PTR),Y 
LDA MOTORON, X :SUR LA PISTE 0 STA VPOS TAX 
LDY 4#$50 LDA 45 LDA MOTORON, X ;TOURNE ENCORE P 
TRACKO  LDA PHASEOFF, X STA HPOS OUR LECT 
TYA JSR VTAB LDA Q7L, X ;PREP. LECTURE 
AND #$03 JSR PRINT LDA #0 
ASL BLK ‘VOS DISQUETTES SONT IDENTIQUES" STA PTR 
ORA SLOT HEX 00 LDA DRIVE :SET BUFFER EN 
TAX «1 BIT KBDSTRB ASL :F(N) DU DRIVE 
LDA PHASEON, X JSR TEXT ASL 
LDA 4$56 LDA #0 ASL 
JSR WAIT STA HPOS ASL 
DEY LDA #23 ASL 
BPL TRACKO STA VPOS STA PTR+] 
LDA SLOT JSR VTAB LDA #$E0 :$20 INCR. AMENE 
TAX JSR PRINT RONT 
LDA MOTOROFF, X ASC "D'AUTRES DISQUETTES ? --> <RET STA CPT ;CPT À ZERO 
? URN> ” LDY 40 
#** EXPLORATION DES 35 PISTES ** HEX 00 RD LDA Q6L,X ;LECTURE NIBBLE 
; "2 LDA KBD BPL RD 
BOUCLE LDA #1 BPL <2 CMP 4$FF ;JUSQU'A TROUVER 
STA DRIVE CMP 4RET BNE RD :2 FF AUTO-SYNC 
STA HPOS BNE >3 RD1 LDA 06L,X 
LDA FLG JMP DEBUT BPL RDI 
CMP 42 43 JSR HOME : FIN PROGRAMME CMP 4$FF 
BEQ >1 JMP DOS :RETOUR AU DOS BNE RD 
LDA #10 RD2 LDA Q6L,X ;LECT. JUSQU'A 
STA HPOS #* TRANSFERT EN MEMOIRE DES 2 PISTES ** BPL RD2 :FIN DES "FF" 
STA VPOS ; CMP 4$FF 
JSR VTAB DUMP JSR VECPML : INSTALLATION BEQ RD2 
JSR PRINT STY PTR ;PARAMETER LIST BNE RD4 :DEBUT DE 
ASC "PISTES: " POUR RWTS RD3 LDA Q6L,X ;DATA OU ADRESS 
HEX 00 STA PTR+1 BPL RD3 
#1 LDA "$ LDY #PTRK RD4 STA (PTR),Y : TRANSFERT 
JSR COUT LDA TRACK INC PTR :TIMING CRITIQUE 
Lé LJ - 
Récapitulation 0898- C5 C3 C9 D3 CS D2 AO CC 0970- C5 D2 AO BC D2 C5 D4 D5 
“‘COMPDISK’ 08A0- C5 AO D3 D9 D3 D4 C5 CD 0978- D2 CE BE 8D 8D AO AO AO 
08A8- C5 A0 C4 A7 C5 D8 DO CC 0980- AO AO AO AO A0 A0 A0 D3 
Après avoir saisi ce code sous 08B0- CF C9 D4 C1 D4 C9 CF CE 0988- C9 CE CF CE AO C6 D2 C1 
moniteur, vous le sauvegarderez par 08B8- 8D 8D A0 AO A0 AO AO 31 0990- DO DO C5 D2 A0 BC C5 D3 
BSAVE COMPDISK,A$7FD,L$9BA 08C0- AO AD BE AO C4 CF D3 8D 0998- C3 BE 00 2C 10 CO AD 00 
08C8- 8D A0 A0 A0 A0 A0 32 A0 O09A0- CO 10 FB C9 8D DO 03 4C 
07FD- 4C 11 08 08D0- AD BE A0 DO C1 D3 C3 C1 09A8- 26 0B C9 9B DO ED 20 58 
0800- A9 4C 8D 7A A5 8D 9E A5 08D8- CC AO C5 D4 A0 DO D2 CF 09B0- FC 20 01 10 CC C5 A0 DO 
0808- A9 84 8D 7B A5 8D 9F A5 O8E0- C4 CF D3 8D 8D A0 AO A0 09B8- D2 CF C7 D2 C1 CD CD C5 
0810- A9 20 58 FC 20 01 10 2D 08E8- AO AO 33 AO AD BE A0 C3 09C0- A0 D2 C5 C3 CF CE CE C1 
0818- 2D 2D 2D 2D 2D 2D 2D 2D 08F0- DO AF CD 8D 8D A0 A0 A0 09C8- C9 D4 AO CC C5 D3 AO C4 
0820- 2D 2D 2D 2D 2D 2D 2D 2D 08F8- AO AO 34 AO AD BE AO C9 09D0- C9 D3 D1 D5 C5 D3 AO CI 
0828- 2D 8D 20 20 03 OF OD 10 0900- CE C3 CF CE CE D5 A0 A0 09D8- D6 C5 C3 8D 8D AO A0 A0 
DAS ONOINIAN CII AS 0 ETS 72920 0908- A8 D3 C5 C3 D4 C5 D5 D2 09EO0- AO AO AO CC C5 A0 DO D2 
0838- 04 05 20 20 8D 20 20 04 0910- A0 DO C8 D9 D3 C9 D1 D5 09E8- CF CC CF C7 D5 C5 AO C4 
C8E0 O0 TT TRES DE T3 020,21 0918- C5 A9 8D 8D 00 2C 10 CO O09FO0- A7 C1 C4 D2 C5 D3 D3 C5 
0848- 36 2D 13 03 14 20 20 8D 0920- AD 00 CO 10 FB C9 BO 90 09F8- AO BA AO 04 35 01 01 39 
0850- 2D 2D. 2D 2D 2D 2D 2D 2D 0928- F4 C9 B5 BO FO 49 BO 85 0A00- 36 8D 8D AO A0 AO AO AO 
0858- 2D 2D 2D 2D 2D 2D 2D 2D 0930- 8E 20 01 10 AD AO DO DS 0A08- AO CC C5 AO DO D2 CF CC 
0860- 2D 2D 00 20 12 11 A9 05 0938- C9 D3 AC A0 D3 A7 C9 CC 0A10- CF C7 D5 C5 A0 C4 C5 A0 
0868- 85 22 20 58 FC 20 01 10 0940- AO D3 A7 C1 C7 C9 D4 AO 0A18- C4 C1 D4 C1 AO AO AO BA 
0870- AD AO C9 CE D3 D4 C1 CC 0948- C4 C5 AO C4 C9 D3 D1 D5 O0A20- A0 04 35 01 01 2D 2D 8D 
0878- CC C5 D2 A0 CC C5 D3' A0 0950- C5 D4 D4 C5 D3 AO CE CF 0A28- 8D AD AO D3 A7 C9 CC A0 
0880- C4 C9 D3 D1 D5 C5 D3 AO 0958- CE 8D 8D AO AO AO A0 A0 0A30- C5 CE AO C5 D3 D4 A0 C1 
0888- C1 AO C3 CF CD DO C1 D2 0960- A0 DO D2 CF D4 C5 C7 C5 0A38- C9 CE D3 C9 AC A0 C6 D2 
0890- C5 D2 8D 8D AD AO DO D2 0968- C5 D3 A0 C6 D2 C1 DO DO 0A40- C1 DO DO C5 D2 AO BC D2 
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BNE RD3 
INC PTR+1 
INC CPT 
BNE RD3 


LDA MOTOROFF, X 


RTS 


: 


MAXI 31 CYCLES 


:$2000 NIBBLES 
«SONT TRANSFERES 


## COMPARAISON DES 16 SECTEURS ** 


COMPARE LDA #0 


BAL.4 CMP #$D5 


JSR INCR 

JSR SEARCH 
UE SUR II 

LDA #0 





Pom's n° 25 


#INITIALISE 
:POINTEURS 


ET CPTR DE SECT 


; PROLOG.NON RECO 


:CHERCHE PROLOGU 


;PROL. ADRESSE ? 
+OUI 
NON, + LOIN 


;SAUV NIBBLES 
;DONNANT NO SECT 


*CHERCHE PROL. D 


“ON Y EST 
+CHERCHE HOMOLOG 


*INIT POINT DR 2 


STA PTR2 
LDA /BUF2 
STA PTR2+1 
LDY #0 
INC CPT 
LDA CPT 
CMP #$10 
BCC BALAY 
RTS 





:SECT SUIV 


+ JUSQU'AU 16EME 


** RECHERCHE DU SECTEUR À COMPARER ** 


SEARCH  LDA KBD 
BPL >5 
BIT KBDSTRB 
6 LDA KBD 


*5 LDA PTR2+1 


CLE PRINCIPALE 
PLA 
RTS 
A7 JSR INCR2 
SRC.1 CMP #$D5 


SRC.2 CMP #$AA 


SRC.3 CMP #$596 


INC PTR2+1 
JMP <5 

"+ LDX #5 

#3 JSR INCR2 
DEX 
BNE <3 

ECTEUR 

CMP SVAD 
BEQ >5 

#4 INC PTR2+1 


:SUSPENDRE LE 
; TRAITEMENT 


+ REPRENDRE 


PISTE ILLISIBLE 
RETOUR DANS BOU 


ON EST SUR UN S 


“EST-CE LE BON ? 


:NON => SUIVANT 





BNE <6 
JSR INCR2 
SRC.5 CMP #$AA 
BNE <6 
JSR INCR2 
MMENCER 
LDA #0 
STA CPTB+1 
LDA #$AA 
STA CPTB 
LDX #3 
SE LDA PTR,X 
STA SVPTR,X 
DEX 
BPL <1 


+ #+* COMPARAISON ** 

TEST LDA (PTR),Y 
CMP (PTR2),Y 
BNE DIF 
JSR INCS 
JSR INCS2 
INC CPTB 
BNE TEST 
INC CPTB+1 
LDA CPTB+1 
CMP #2 
BCC TEST 
RTS 

INCR LDA (PTR),Y 

INCS INC PTR 
BNE >1 
INC PTR+1 

ai RTS 

INCR2 LDA (PTR2),Y 

INCS2 INC PTR2 
BNE <1 
INC PTR2+1 
RTS 

DIF LDA SVPTR 
STA PTL+1 
LDA SVPTR+1 
STA PTH+1 





+LA COMP.PEUT CO 


:POUR $156 NIBBL 


; SAUV. ADR .DEBUT 
DATA DES 2 SECT 


#DESACCORD 


:$156 NIBBLES = 


+ROUTINES D'INCR 
+DE POINTEURS 


+TROUVE POSIT. 
:DENIBBILISE LE 
SECTEUR I 

; SELON ROUTINE D 


: TRANSFERT EN BU 


; PRIMAIRE ET SEC 


29 


30 


Lr 
*2 


9 


ne 


+5 
*6 


ONDAIRE 
STA PTL+1 
LDA SVPTR+3 
STA PTH+1 
DA /BF2S 
STA ST1+2 
LDA /BF2P 
STA ST2+2 
JSR TRF 
UR II 
LDY #0 
LDX #0 
LDA BFIP,Y 
LSR BF15S,X 
ROL 
LSR BF1S,X 
ROL 
STA BF1P,Y 
INY 
BEQ >3 
INX 
CPX 4$56 
BEQ <1 


+ IDEM POUR SECTE 


+ TRANSFORME 
:NIBBLES EN OCT 


ON COMMENCE DE 


LE SECTEUR II 


+JUSQU'A CE QU'O 


‘LA DIFFERENCE 


CPX 4556 

BEQ <3 

BNE <4 

JMP NEXT 

TYA 

PHA ‘ SAUV. DE LA PO 
SITION 


LDA FLG : TTMENT DE LA DI 


+1 DIFFERENCE À 
*EÊTE VUE 


+AFFICHAGE ENTET 


LISYS 


des 


PRERR 


ADTSYS 








ASC "IL Y À DIFFERENCE POUR se 


ASC "(SYST:" 
ASC " 
HEX 8D8D 


; 


INV "PISTE SECTEUR POSITION" 


HEX 00 


TAX 
LDA $1000,X 
STA SCT 
JSR PRBYTE 
LDX 46 
JSR PRBL2 
JSR HEXA 
PLA 
POSITION 
JSR PRBYTE 
LDX 46 
JSR PRBL2 
LDA SYST 
CMP #2 
BEQ BLKPAS 
CMP #3 
BEQ BLKCPM 
JSR CROUT 
CLC 
LDA SVPTR 
TEUR I 
ADC 4556 
SUIVANT 


BLKPAS 
:AFFICHAGE DE "B 


#SI SYST = 2 OU 


*AFFICHAGE DE 


‘LA PISTE 


*PUIS DU SECT.LO 


ZONE À PATCHER BLKCPM 


EN F(N) DU SYSs 


+RECUPERATION DE 


CALCUL NO BLOC 


ON AMENE LE PON 


“SUR LE SECT. I 


om 


STA PTR 
LDA SVPTR+1 


SCT 


JSR COUT 
PLP 

LDA 40 
ADC #$B1 
JSR COUT 





POUR PASCAL ET 


“AFFICH DECIMAL 


PARTIE DU BLOC 


+IDEM SI CP/M 


Pom's n° 25 


PTL 


PTH 


ERR 





#* ROUTINES DIVERSES ** 


$1000,X 
TRANSL, Y 
$1000,Xx 


TRANSL, Y 
$1000,Xx 


LD2 


ANDT 


VTAB 
PRINT 
"PISTE $" 
00 


Pom's n° 25 


*PREP DE LA DENI 


PATCH DE LA ROU 


+POUR QU'ELLE SO 


COMMUNE AUX 2 D 


+CONVERSION 
+EOR DES NIBBLES 


SORTIE MESSAGE 
{PISTE ILLISIBLE 


Le + 
Æ 


PRINT 


Ge 


Ge : 


HEXA 


TRAIT 


*3 


BNE >2 
LDA "2 
JSR COUT 
JSR CROUT 
LDA #24 
STA HPOS 
JSR PRINT 
ASC "ILLISIBLE" 
HEX 00 
JSR BELL 
JSR BELL 


SAIPRO 


LDA #0 me. | 


LDA (RTN),Y 45 


NUMPRO 


ADC 40 ie 


TIRER UN TRAIT 


LDX #39 
JSR $FDED 
DEX 


PHA *SAISIE PROLOGUE 


+TRAITT DU 
;1ER CARAC SAISI 


+SI <RETURN> 


+*AFICH EN INVERS 


SAISIE 5 AUTRES 
*DIGITS PROL ADR 


PUIS PROL DATA 


BCC <5 


+CONVERSION HEXA 


CLC 
ADC PROLOG, Y 


STA PROLOG, Y ET SAUV. EN PRO 





31 


32 


NUM LDA INPUT, X 
EOR #$B0 
CMP #$0A 
BCC >2 
SBC #$67 

e RTS 

PATCH LDA PROLOG 
STA BAL.1+1 
STA SRC.1+1 
LDA PROLOG+1 
STA BAL.2+1 
STA SRC.2+1 
LDA PROLOG+2 
STA BAL.3+#1 
STA SRC.3+1 
LDA PROLOG+3 
STA BAL.4+1 
STA SRC.4+1 
LDA PROLOG+4 
STA BAL.5+1 
STA SRC.5+1 
RTS 

PATSYS  LDX #0 

agi à LDA TSYS,X 


PATS LDA TSYS+#1,X 
STA ADTSYS+1 
LDA TSYS+2,X 
STA ADTSYS+2 
LDA TSYS+3,X 
STA TRLIB+] 
STA TRLIB2+1 
LDA TSYS+4,X 
STA TRLIB+2 
STA TRLIB2+2 
LDA $1000 

BELLE 
TAX 
LDA $1000,X 
STA LISYS-1,X 
DEX 
BNE TRLIB2 
RTS 

DEPATCH LDA #$D5 


TRLIB2 


ROUTINE PATCH 
POUR PROLOGUES 


;PATCH TABLE DE 
CORRESP .SECT.PH 


ET SECT.LOGIQUE 


* TRANSFERT DU LI 


DE SYSTEME 


“REMISE À VAL. S 


Lex: 


TDOS 
TPAS 
TCPM 
TPHY 
LIBDOS 
LIBPAS 
LIBCPM 
LIBINC 


TSYS 





TNDD 
STA BAL.1+1 
STA BAL.4+1 
STA SRC.1+1 
STA SRC.4+1 
LDA #$AA 
STA BAL.2+1 
STA BAL.5+1 
STA SRC.2+1 
STA SRC.5+1 
LDA #$596 
STA BAL.3+1 
STA SRC.3+1 
LDX #7 
POUR 
LDA " 
STA LISYS,X 
DEX 
BPL <1 
RTS 
HEX 00070E060D050C04 
HEX 0B030A020901080F 
HEX 00080109020A030B 
HEX 040C050D060E070F 
HEX 000B06010C07020D 
HEX 08030E09040F0A05 
HEX 0001020304050607 
HEX 08090A0B0C0D0E0F 


STR " DOS }" 
STR "PAS/PRO) " 
STR " CP/M )" 
STR INCONNU) " 


HEX 01 
Uux 
ADR TDOS 


ADR TPAS 
ADR LIBPAS 
HEX 03 
ADR TCPM 
ADR LIBCPM 
HEX 04 
ADR TPHY 
ADR LIBINC 
END 


POUR PROLOGUES 


REMISE À SPACES 


:LIBELLE SYSTEME 


: TABLE D'ACCES À 


: TABLES PRECEDEN 


«D'APRES LE NO 
DE SYSTEME CHOI 





Paddle, 
Souris, 
et Apple //c 


Il est possible sur f’Apple //c 
d'utiliser la souris en lieu et place 
des paddles. La méthode est la 
suivante : 


° En mode direct, taper : PR£4, 
puis CTRL-A, puis PRE£O. 

° En mode programme : PRINT 
CHR$(4) “PR£4” PRINT 
CHR$(1) 
“PR£O” 


A titre d'essai, VOus pouvez utiliser 
le programme suivant : 


10 PRINT CHR$(4) “PR£4” : 
PRINT CHR$(1) : PRINT 
CHR$(4) “PR£O” 

20 PRINT PDL(), 
GOTO 20 


La souris s'utilise alors Comme un 
joystick, Ceci fonctionne avec les 
programmes Basic ; en revanche, la 
plupart des programmes commer- 
ciaux utilisant directement les a- 
dresses des paddles, ne sauront pas 
se servir de la souris. 


PRINT. CHR$(4) 


PDL(1) 





Vous avez un Apple {le avec Chat Mauve ou un !Ic ? 
Vous disposez de Pascal 1.2 ? 


Profitez de l'interpréteur COGO 


IL s'agit d'un système graphique double-haute 
résolution.écrit en Pascal. 


COGO vous permet.de manipuler des graphiques 
grâce à un langage de description des objets 


- point$, angles- et à l'emploi de fonctions primitives 


de manipulation très puissantes :-cercle, tangente, 
intérsections, parallèles, etc. Il est ainsi possible 
dé tracer des grilles, des cercles, des segments de 
droite, des tangentes communes à deux cercles, de 
calculer des distances, des angles... 


L'éditeur permet une saisie rapide du langage. 
Une instruction COGO peut-être exécutée dès 


la saisie.pour faciliter la mise au point, ou 
au sein d'un programme, 





MAINTENANT EN 
RÉSOLUTION SUR APPLE //C 


Par Nicolas Montsarrat 


DOUBLE HAUTE 


Ce programme; destiné à résoudre des problèmes de 
géométrie plane, comporte des instructions de 
stockage sur fichier afin de permettre la reprise 
d'un calcul. 


150,00 F TTC, franco 
Bon de commande page 74 
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Le formateur de ProDOS désassemblé 


Bruno Fénart 


ar manque de place, le "kernel" (noyau) 
de ProDOS ne comporte pas de 
formateur. Contrairement au DOS 3.3, 
pour formater une disquette en ProDOS, il 
faut utiliser un programme spécifique. Il existe deux 
versions des utilitaires ‘système’ de ProDOS 
(FILER), plus un utilitaire spécial pour l'Apple //c. 


La partie désassemblée ici concerne le formateur 
physique de la version la plus récente. Les deux 
versions de FILER diffèrent peu ; toutefois, 
l'emplacement du formateur a été déplacé de $7C00 
à $7E00. De plus, un bug qui l'empêchait de 
fonctionner sur des lecteurs de disquettes trop lents 
ou trop rapides (“DISK II TOO FAST” ou “DISK II 
TOO SLOW”) a été corrigé. 


Les lecteurs pourront comparer ce formateur avec 
celui du DOS 3.3 (voir RWTS désassemblée Pom's 
n° 21). Ils pourront s'apercevoir que la principale 
différence entre les deux est que ProDOS détecte 
quand l'erreur provient de la vitesse de rotation du 
lecteur. Ils pourront également voir comment 
modifier les valeurs de GAPMIN et GAPMAX si 
leur lecteur de disquettes est trop lent ou trop rapide 
pour le formatage ProDOS. G 





Source ‘FORMAT.SCEO' 


Assembleur ProCode 








0 * 
1 *+ * 
Fr * * 
3 * * 
4 * FORMATEUR du FILER de ProDOS LE 
EX Copyright Apple Computer JUN/DEC 84 * 
6 * * 
7 * Désassemblage Bruno Fénart 10/SEP/85 * 
6 * * 
9 * * 
10 * * 
11 
12 * Formatage physique 16 secteurs DISK II 
13 * Pour le FILER de SEP 83 le début est en $7800 
14 * La copie du boot (blocs 0 et 1) se trouve en $65D3.$69D2 
15 * ou en $6425.$6824 pour l'ancienne version 
16 
17 * Entrée: À = n° lecteur = n° slot x $10 + $80 si drive 2 
18 * VOLUME ($DE) = n° du volume formaté 
19 * Sortie: Erreur -> carry set et A=n" erreur 
20 * Pas d'erreur -> carry clear et À = 0 
21 
22 ORG $7A00 ‘0RG $7800 pour l'ancienne version 
23 
24 * Variables en page zéro 
25 ee me mm mm mme 
26 


“Constante $AA. Temporise 1 cycle 
‘n° piste à formater (init.= 0) 
29 SECT.NB EQU $D2 sn° secteur à formater (init.= 0) 
30 VOL.NB EQU $D3 ‘n° du volume (Init.= VOLUME) 

31 GAP3 EQU $D4 
32 COMPTDAT EQU $D5 


éNbre sync. bytes (init.=GAPMAX+2) 
‘Compteur des données lues 


ESSAINB 
TABLADR 
SECTEUR 
COMPTO 
COMPT1 
TAMPON1 
COMPTEUR 
TAMPON2 
VOLUME 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


$D6 
$D7 
TABLADR+1 
$D9 
$DA 
$DB 
$pc 
$DD 
$DE 


:Nombre d'essai par piste (Max=3) 
; Table de CHCKSM, SECT,PIST, VOL 
‘n° du secteur lu 

: Compte 256 DELAY. Non initialisé 
sDécompte 1 s. Initialisé à $D7 

: Tampon pour le checksum (init.=0) 
‘Essais de lecture (init.= $FC) 
«Tampon codage 4 et 4 

‘Entrée: n° du volume 


* Commutateurs du lecteur de disquettes 


À  —_______mmmmmmsmememxms 


DRVSO 
DRVOFF 
DRVON 
DRVSLI1 
DRVSL2 
DRVRD 
DRVWR 
DRVRDM 
DRVWRM 


* MACROS 


READ 


WRITE 


WRITEBIS 


WRSTATUS 


WRMODE 


WREND 


DELAY6 


DELAY4 


DELAY2 


DELAY3 


DELAY7 


DELAY12A 


DELAY12B 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


$co80 
$Cco088 
$co89 
$CO8A 
$Co8B 
$co8c 
$C08D 
$CO8E 
$Cco8r 


‘Phase 0 
‘Arrêt 

‘Marche 

‘Drive 1 
‘Drive 2 
‘Lecture 
‘Ecriture 
Mode lecture 
Mode écriture 


de lecture et d'écriture 


EOM 


NOP 


NOP 


NOP 


BIT 


DRVRD, X 
*-3 


DRVWR, X 
DRVRD, X 


DRVHR, X 
DRVRD, X 


DRVWR, X 
DRVRDM, X 


DRVWRM, X 
DRVRD, X 


DRVRDM, X 
DRVRD, X 


$00 


RTS1 


RTS2 


FORMAT. SCE1 
FORMAT. SCE2 


‘Lecture d'un octet 
Lit tant que positif 


‘Ecriture sur 9 cycles 

; (A inchangé, Carry modifié): 
Charge l'octet à écrire (5) 
‘L'écrit sur le disque (9) 


‘Ecriture sur 9 cycles 

: (A modifié, Carry inchangée) : 
{Charge l'octet à écrire (5) 
‘L'écrit sur le disque (3) 
‘Test et initialise l'écriture 

; (indispensable avant d'écrire): 
Test si le disque est protégé 

; et positionne en séquence 0 
:Débute l'écriture et écrit 


; l'Accumulateur sur le disque 
Début écriture, charge octet (5) 


‘Ecrit le 1° octet (9) 


‘Fin du mode d'écriture 


Délai de 6 cycles 
Délai de 4 cycles 


‘Délai de 2 cycles 


Délai de 3 cycles 


‘Délai de 7? cycles 


‘Délai de 12 cycles 
‘Saut vers un RTS 


{Délai de 12 cycles (identique) 
sSaut vers un RTS 


:Fin des macros 





Pom's n° 25 
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Source ‘FORMAT.SCE1’ 


Assembleur ProCode 








* 
* * 
* * 
* * 
* Début du code = 
* * 
* lère partie: Programme Principal * 
* * 
* * 
NOR D US Te ER Se: à 
É 
PHP ‘Préserve le contexte 
SEI +: et interdit les interruptions 
JSR DEBUT 
PLP ‘Restitue le contexte 
CMP #$00 
BNE ERREUR 
CLC ‘Pas d'erreur: Retour à l'envoyeur 
RTS + avec À = 0 et Carry clear 
* Gestion des erreurs: Conversion en erreurs ProDOS 
* ee mo 
* Entrée: Acc. = n° erreur 1 à 4 
* Sortie: Carry set 
* Acc. = Erreur ProDOS -> Erreur d'E/S = $27 
* -> Disque protégé = $2B 
* -> Trop lent = $33 
* -> Trop rapide = $34 
ERREUR CMP #$02 
BNE $autres 
LDA #$2B ‘Disque protégé en écriture 
JMP Sfin 
$autres CMP #$01 
BNE Sspeed 
LDA #$27 ‘Erreur d'E/S 
JMP Sfin 
$speed CLC 
ADC #$30 ‘Autres erreurs (vitesse DISK II) 
S$Sfin SEC ‘Retour à l'envoyeur avec le code 
RTS ‘ d'erreur dans À et le carry set 
RAR AROORORU NAN NE D M OO ON MANN 
* * 
* Positionnement du bras du lecteur par appel de ARMOVE * 
* " ] 
RAR A D D 2 ee D où fe Et tt tt 
* entrée: À = piste destination 
* X = numéro du slot x $10 
” PISTACTU = piste actuelle 
* Sous-programme appelé: 
* MOVARM = Positionne le bras suivant la valeur de À 
* Variable local: PISTDEST 
POSTRACK ASL + Piste destination x 2 
ASL PISTACTU }; Piste actuelle x 2 
STÀA PISTDEST ; À -> Piste destination x 2 
TXA ‘Récupère n° du slot x $10 
LSR 
LSR 
LSR 
LSR 
TAY ;n° du slot en Y 
LDA PISTDEST 
JSR ARMOVE “Positionnement 
LSR PISTACTU  ;Récupère piste actuelle 
RTS 
LÉLÉLLELELELELTEET EE III 11111 
* * 
* formatage d'un disque Li 
4 * 
LALÉLELELEEE EE TEL ETS I1111111. 
* Entrée: Interruptions inhibées 
* registre À = n° lecteur = n° slot x $le + $80 si drive 2 
* VOLUME ($DE) = n° du volume formaté 


83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 


* Sortie: Carry indifférent (positionné par le prog princ) 
* registre À = n° de l'erreur de 0 à 4 (décodé par ERREUR) 


DEBUT TAX 
AND #$70 ‘Isole le n° du slot 
STA SLOT 
TXA ‘Récupère n° du slot et du drive 
LDX SLOT ‘n° du slot x $10 en X 
ROL 
LDA #$00 
ROL ‘isole n° du drive 
BNE $drive2 
LDA DRVSLI,X  ;Sélectionne le drive 1 
JMP $drivel 
Sdrive2 LDA DRVSL2,X ‘Sélectionne le drive 2 
S$drivel LDA DRVON,X ‘Mise ëén marche du lecteur 1 ou 2 
LDA #$D7 ‘sInitialise l'attente totale = 15 
STA COMPTI 
LDA #$50 Position du bras initilisé à $50 
STA PISTACTU ; pour recalibrer celui-ci 
LDA #$00 ‘Recalibrage sur la piste 0 
JSR  POSTRACK 
$attente LDA COMPTI ‘Temporise 1 s depuis le démarrage 
BEQ S$Sfinatt ;: 41 x 256 boucles 
JSR DELAY #“ X 96 microsecondes = 1 seconde 
JM  $attente 
$finatt LDA VOLUME ‘Passage du paramètre 
STA VOL.NB ‘ du numéro de volume 
LDA #$AA 
STA CST.AA 
LDA  GAPMAX ‘ On commence au dessus de la 
CLC ‘ limite pour pouvoir tester si 
ADC #$02 ‘ le disque n'est pas trop lent 
STA GAP3 
LDA 4#$00 ‘Première piste à formater 
STA PIST.NB ‘ = piste 0 
$piste LDA PIST.NB ‘Positionnement sur la 
LDX SLOT ‘ piste à formater 
JSR  POSTRACK 
LDX SLOT 
WRSTATUS ‘Test si protégé en écriture 
TAY ‘Préserve le résultat du test 
WREND ‘Repositionne les switchs off 
TYA ‘Récupère le résultat du test 
BPL Sokwrite ;Si non protégée en écriture 
LDA #$02 ; sinon erreur 2 = DISQUE PROTEGE 
JMP FIN ; et fin 
S$Sokwrite JSR WRITRACK ‘formate une piste puis la teste 
BCC Sokform ; Si pas d'erreur 
LDA #$01 ‘Erreur 1 par défaut = ERREUR E/S 
LDY GAP3 Teste la largeur des gaps 
CPY GAPMIN ‘Gap 3 trop court ? 
BCS S$Sjmpfin “Non: erreur non identifiée et fin 
LDA #$04 ‘ sinon erreur DISK II TROP RAPIDE 
$Sjmpfin JMP FIN ; et fin 
S$Sokform LDY GAP3 ‘Pas d'erreur au formatage 
CPY GAPMIN ; mais teste la largeur des gaps 
BCS $okspal ;:Gap 3 trop court ? 
LDA #$04 “Oui: erreur DISK II TROP RAPIDE 
JUMP FIN + et fin 
S$okspdl CPY GAPMAX 
BCC Sokspa2 ‘Gap 3 trop long ? 
LDA #$03 “Oui: erreur DISK II TROP LENT 
JMP FIN ‘+ et fin 
S$okspd2 LDA TESTMAX ‘Ultime test de la piste: 
STA TESTNB ‘ 16 essais au maximum 
$test DEC TESTNB ‘Décompte le nombre des tests 
BNE $encore ‘Encore un test ? 
LDA #$01 * sinon erreur 1 = ERREUR E/S 
JMP FIN ‘ et fin 
$encore LDX SLOT 
JSR READRES ‘Tente de lire le secteur zéro 
BCS $test ‘Lecture réussie ? 
LDA SECTEUR ‘n° du secteur lu 
BNE $test “Secteur zéro ? 
LDX SLOT 
JSR READATA ‘puis ses données 
BCS $test ‘Lecture réussie ? 
INC PIST.NB Test fini on passe à 
LDA PIST.NB ‘la piste suivante 
CMP #$23 ‘Piste 35 (dernière piste) ? 
BCC S$piste ‘sinon encore une piste 
LDA #$00 ‘Erreur 0 = pas d'erreur 
FIN PHA ‘Préserve le numéro de l'erreur 
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169 LDX SLOT 73 


170 LDA DRVOFF,X ;Arrêt du lecteur 74 * Lecture des n° de volume, piste et secteur 
171 LDA #$00 sPositionne le bras à la piste 0 75 * Entrée: X=n" de slot x 16 
172 JSR  POSTRACK 76 * Read mode ( DRVRD & DRVRDM } 
173 PLA ;Récupère le numéro de l'erreur 77 * Sortie: Erreur => Carry set 
174 RTS Retour au programme principal 78 * Pas d'erreur => Carry clear 
FAX TABLADR+3 = n° volume 
80 * TABLADR+2 = n° piste 
#1? TABLADR+1 = n° secteur 


Source ‘FORMAT.SCE2’ :: A ne 


83 * Registres: À = $AA, Y = $00, X = inchangé 


Assembleur ProCode 84 * Variables locales: COMPTEUR = Compteur d'essai 
85 * TAMPONI = Calcul du checksum 
86 * TAMPON2 = Décodage 4 et 4 
0 87 
Lux 88 READRES LDY #$FC ‘Init. du compteur 
2 * Lr 89 STY COMPTEUR 
< NO * 90 S$Sposit INY # 256 tentatives 
dr * * 91 BNE $encore 
5 * 2ème partie: sous-programmes * 92 INC COMPTEUR CRE | 
6 * * 93 BEQ IZNOGOUD + = 772 tentatives 
| PL à * 94 S$Sencore READ Lit un octet 
su 95 Sreposit CMP #$D5 ; Début du prologue ? 
3 96 BNE S$posit ; sinon recommence 
10 97 NOP 
11 RÉRRRRÉRRÉRRRÉRRRÉRÉRÉRARÉÉRRARÉRAR 98 READ ‘Lit un octet 
22 * * 99 CMP #$AA ;: suite du prologue ? 
LS Test du champ des données * 100 BNE S$reposit 
24: * * 101 LDY #$03 ‘Pour aprés: VOL/PIST/SECT/CHCKSM 
PORC LLELEECELECEETE EEE EEE TEE EL TT LIT 102 READ ;Lit un octet 
16 103 CMP #$96 ; fin du prologue 
17 * Teste si chacune des 342 ($156) données est nulle (596) 104 BNE S$reposit + Prologue = $D5/$AA/$96 ? 
18 * Entrée: X = n° de slot x 16 105 LDA #$00 ‘Init. pour la checksum 
VA OA 2 Read mode ( DRVRD 4 DRVRDM }) 106 Sdécode STA TAMPONI ‘Checksum intermédiaire 
20 * Sortie: Erreur => Carry set à 107 READ ‘Lit un octet 
23: Pas d'erreur => Carry clear 108 ROL ; x 2 (codage 4 et 4) 
22 * Registres: À = $AA, Y = $00, X = inchangé 109 STA  TAMPON2 
23 * Variable locale: COMPTDAT = Compteur des données lues 110 READ ‘Lit un octet 
24 111 AND  TAMPON2 sRecompose 4 et 4 
25 READATA LDY #$20 112 STA TABLADR,Y ;Stocké en ordre décroissant 
26 Sposit DEY 113 EOR TAMPONI #Calcule la checksum 
27 BEQ IZNOGOUD #32 tentatives (synchro. bytes) ? 114 DEY 
28 READ ‘Lit un octet 115 BPL S$décode ‘suivant Vol/Pist/Sect/Chcksm 
29 Sreposit EOR #$D5 Début du prologue ? 116 TAY ‘ checksum EOR checksum 
30 BNE $posit 117 BNE IZNOGOUD # Checksum différent ? 
31 NOP 118 READ ‘Lit un octet 
32 READ ‘Lit un octet 119 CMP #$DE ‘Début de l'épilogue ? 
33 CMP #$AA + Suite du prologue ? 120 BNE IZNOGOUD 
34 BNE $reposit 121 NOP 
35 LDY #$556 ‘Pour après (342 octets) 122 READ ‘Lit un octet 
36 READ ‘Lit un octet 123 CMP #$AA ; suite de l'épilogue 
37 CMP #$AD ;‘ FIN du prologue des données 124 BNE IZNOGOUD ; Epilogue = $DE/$AA(/$EB) ? 
38 BNE $reposit + Prologue $D5/$AA/$AD ? 125 IZGOUD CLC ‘C'est tout bon ($EB non testé!) 
39 LDA #$00 126 RTS 
40 Sdata DEY ‘Lecture de 86 données 127 
41 STY COMPTDAT 128 RARRRRRRÉRRRRÈÉRRRÉRRRRRRRRÈNÉRRÉÉRAÉÉRRRRRRRRRRÉÉRAR 
42 READ ‘Lit un octet 129 * * 
43 CMP #$96 ; = donnée nulle 130 * Positionnement du bras sur la piste destination * 
44 BNE  IZNOGOUD ‘Toutes les données nulles ? 131. * Là 
45 LDY COMPTDAT FÉVR LLLLLILLLLLLLELELLLELLILLLILESSE LILI LI LLLLLLILI LS SZ. 
46 BNE S$data 133 
47 S$datas STY COMPTDAT ‘Lecture de 256 données 134 * Sous programme: DELAY = Temporise suivant la valeur de À 
48 READ ‘Lit un octet 135 * Entrée: registre À = piste destination x 2 
49 CMP #$96 ; = donnée nulle 136 * registre X = numéro du slot x $10 
50 BNE IZNOGOUD ;Toutes les données nulles ? 297). * PISTACTU = piste actuelle x 2 
51 LDY COMPTDAT 138 * DELAYON et DELAYOFF = tables de temporisation 
52 INY 139 * Sortie: registre X = inchangé 
53 BNE S$datas 140 * Variables: SLOTARM, PISTDEST, PISTACTU, PISTPREC, PISTDIFF 
54 READ ‘Lit un octet si 1 
55 CMP #$596 ; doit être nulle 142 * Commutations des switches (Départ sur une piste paire): 
56 BNE  IZNOGOUD #Checksum correct ? 143 * Ordre croissant : 30524 {1 piste) 
57 READ ‘Lit un octet 144 * Ou SD rare 74160 (2 pistes) etc... 
58 CMP #$DE “Début de l'épilogue ? 145 * Ordre décroissant: 7 0 5 6 4 {1 piste) 
59 BNE IZNOGOUD 146 * ou : 7 056 34120 (2 pistes) etc... 
60 NOP 147 
61 READ ‘Lit un octet 148 ARMOVE STX SLOTARM 
62 CMP #$AA +: suite de l'épilogue 149 STA PISTDEST ;Piste destination x 2 
63 BEQ IZGOUD ‘Epilogue = $DE/$AA(/$EB) ? 150 CMP PISTACTU ;Piste actuelle x 2 
64 IZNOGOUD SEC ‘Ce n'est pas bon (traduction) 151 BEQ Snomove :Si égalité, alors fin anticipé 
65 RTS 152 LDA #$00 
153 STA PISTDIFF ‘Nombre de pistes déjà parcourues 
68 RÉRRRÉRRRÉRRÉRRÉÉRRÈRRRRRRRRARARRRR 154 $boucle LDA PISTACTU 
69 * * 155 STA PISTPREC 
70 »* Lecture du champ d'adresse * 156 SEC ‘Piste actuelle - destination x 2 
ni * * 157 SBC PISTDEST ; = nombre de pistes à parcourir 
72 LRRRRÉRRRRRÉRRRÉ RAR RR RRRRRRdtR * 158 BEQ $movend :Si = 0 alors fin du mouvement 
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159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 


170 
171 
172 
173 
174 
175 
176 
177 
178 
tn | 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
10 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 


$arriere 
#$FF 
PISTACTU 
$avant 
#$FE 
PISTACTU 
PISTDIFF 
Sminimum 
PISTDIFF 
#$0c 
$limite 


EOR 
INC 


$arriere ADC 
DEC 
Savant 


Sminimum CMP 


Slimite 
$on 
DELAYON, Y 
DELAY 
PISTPREC 


Soff 
DELAYOFF, Y 
DELAY 
PISTDIFF 
$boucle 
Smovend DELAY 
PISTACTU 
#$03 


$on 
Soff 


SLOTARM 


DRVSO, X 
LDX SLOTARM 


S$nomove RTS 


:Si actuelle > destination: recule 
Complément à l: valeur absolue-1l 
‘Piste suivante en avant 


;Valeur absolue-1 

Piste suivante en arrière 

: Compare pistes à parcourir et 
; parcourues. Prend le minimum 


‘Vitesse limitée au delà de $0C 
‘ si égale DELAY inchangé 


; sinon nouveau pointeur 


/Commute pour la piste suivante 
‘Temporise en fonction du 

; nombre de pistes parcourues 
‘Piste précedente 

‘Décommute celle-ci avec 

‘ un coup de retard 

Nouvelle temporisation 


‘Incrémente pistes parcourues 
Boucle toujours 

‘Temporise et décommute 

;‘ la dernière piste courante 


‘Piste modulo 4 ( 4 switches }) 
‘On ou off suivant la valeur de C 


Calcul du switch suivant le slot 


“Commute sur la bonne piste 


LÉRELELELEEELEEEEEE EEE LE ECE EE EEE ELLES E LES LELELELLLEL ZT: 


* 


* 


* Sous-programme d'écriture du champ de données * 


* 


* 


CÉPELELELELE EEE ES ESS TES SSL SSII LL SSL LL LL LIL) 


* Entrée: Registre X 


* 
* 


WRITDATA DELAY12B 
WRSTATUS 
LDA #$FF 
WRMODE 
DELAY7 
DELAY2 
LDY #$04 
$synchro DELAY7 
UJSR NWDATA? 


Ssynchro 
#$D5 
WDATA9 
#$AA 
WDATA9 
#$AD 
WDATA9 
LDY #$56 
DELAY6 
BNE $premier 
$zéro DELAY12B 
$premier DELAY4 
LDA #$96 
WRITE 
DEY 
BNE $zéro 
DELAY3 
DELAY2 
DELAY12B 
LDA #$96 
WRITE 
LDA #$96 
DELAY2 


$zéros 


$zéros 
WDATA9 
#$DE 
WDATA9 
#$AA 
WDATA9 


= n° 
* Sous-programmes appelés: RTS2 


du slot x 16 

= Délai (DELAY12B) 
WDATA9 = Ecriture après 9 cycles 
WDATA7 = Ecriture après 7 cycles 


‘Test et initialise l'écriture 
‘Octets de synchronisation 
Début et écrit le 1[ octet (3) 


b (16) 
‘ (18) 
‘Encore 4 octets du gap 2 (20) 
‘ (27) (27) 
527 + 6 +7 = >40< (15) (15) 

; (17) (17) 

‘ (19) (20) 
Prologue données (21) 

4 21+6+9= 2>36< (15) 

gd 7) 

5 17 + 6 + 9 = >32< cycles 

a (Idem) (15) 
#4 $156 zéros à écrire (17) 
‘ (23) 
é (26) 
‘Ecriture de $56 zéros (26) xx 
é (30) (30) 
‘Zéro en code 6 et 2 >32< >32< 
Ecrit un octet (9) (9) 

î (11) (11) 

; (13) (14) 

î (16) 

‘ (18) 

4 $100 zéros (30) (30) 

î >32< >32< 

‘Ecrit (9) (9) 

‘ 1) (11) 

a (13) (13) 

a (15) (15) 

; (17) (18) 

a 11+6+9= 2>32< (15) 
‘Epilogue des données (17) 


# 11 +6 + 9 = >32< cycles 


? (idem) 





245 
246 
247 
248 
249 
250 
251 

252 
253 
254 
255 
256 
257 


258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
230 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 


LDA 
JSR 
LDA 
JSR 


#$EB 
WDATA9 
#$FF 
WDATA9 


WREND 


RTS 


WDATA9 
NWDATA7 


DELAY2 
DELAY7 


WRITE 


RTS 


‘Fin épilogue 

î (idem) 
‘Octet synchro 

‘ (idem) 
‘Fin du mode d'écriture 


î (2) 
‘ (7) (3) 
‘Ecrit un octet (9) 


‘ (15) 


RRÉRÉÉÉRRÉARÉÉÉÉRÉRRRÈRRÉRÉÉRÉRÉ RE 


* 


* 


* Ecriture du champ d'adresse * 


* 


RRRARRRÉRRRRRRÉRRÉÉRRÉÉÉRRÉERÉRÉÉ 


* Entrée: Registre Y 
* Registre X 
* VOL.NB 


* 


Sortie: 


M NN  # # # # 


WRITADR SEC 


CST.AA 


= GAP3 sauf secteur 0 = 128 
= n e 
= Numéro du volume 

PIST.NB = Numéro de la piste 

SECT.NB = Numéro du secteur 

= $AA (constante) 

registre X = inchangé 

Carry set si disque protégé, clear sinon 
Sous-programmes appelés: RTS1 = Délai 


du slot x 16 


(DELAY12A) 


WADR.4.4 = Ecriture en codage 4 et 4 


WDATA11 
WDATA 9 


WRSTATUS 


BMI 
LDA 


$fin 
#$FF 


WRMODE 
DELAY7 
$synchro DELAY12A 
DELAY12A 
WRITE 
DELAY2 


DEY 
BNE 


ORA 


S$synchro 
#$5D5 
WADR 9 
#$AA 
WADR 9 
5596 
WADR9 
VOL.NB 
WADR. 4.4 
PIST.NB 
WADR. 4.4 
SECT.NB 
WADR. 4.4 
VOL.NB 
PIST.NB 
SECT.NB 


CST.AA 


WRITEBIS 


CLC 
Sfin 
RTS1 RTS 
WADR. 4.4 PHA 


ORA 


#$AA 
WADRI11 
#$DE 
WADR9 
#$AA 
WADR 9 
#$EB 
WADR 9. 


WREND 


CST.AA 


WRITE 


PLA 


DELAY6 


ORA 
WADR11 
WADR9 


#$AA 


DELAY2 
DELAY2 


DELAY7 


= Ecriture après 11 cycles 
= Ecriture après 9 cycles 


‘Par défaut Carry set ( = erreur) 
‘Test et initialise l'écriture 
‘Si protection alors fin 

‘0Octet de synchro. 

‘Début et 1[ octet (9) 

‘ (16) 


‘Ecrit les octets (28) (28) 
+ de synchro. >40< >40< 
‘Ecrit un octet (9) (9) 
‘ (11) (11) 
‘ (13) (13) 
‘ (16) (15) 


“Prologue du champ d'adresse (17) 


‘ 17 +6 + 9 = >32< (15) 
‘ (17) 

: (idem) 

‘Fin prologue (idem) (15) 
‘ (18) 


# 18 +6 +8 = >32< 6 >32< cycles 


‘ (idem) 

à (idem) (15) 
î (18) 
;Calcule l'octet de checksum (21) 
‘ (24) 
sPréserve le résultat (27) 
‘Décalage (codage 4 et 4) (29) 


i<=> ORA #$AA mais + 1 cycle >32< 


‘Ecrit un octet (9) 

‘ (13) 

‘ (15) 

# 15 + 6 + 11 = >32< cycles (15) 
‘Inscrit l'épilogue (17) 
5 17 +6 + 9 = >32< cycles 

î (idem) 

‘Fin épilogue (idem) 

‘Pas d'erreur 

Fin du mode écriture 

Codage 4 et 4 (3) 

‘ (5) 


‘<=> ORA #$AA + 1 cycle (8) 
“Ecrit le 1[ nibble (9) 


; (13) 
: (13) 
î (21) 
a (2) (23) 
CANIN Pl (25) 
QE ON 6 DU >32< 
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331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 

342 
343 
344 
345 


346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 


WRITE ‘Ecrit un octet (9) 
RTS î (15) 
DFB $A0,$A0,$A0;Résidu inutile 
ÉRRRÉRÉRRRÉRRRRÉRÉR RÉ RÉRARRRRÉRRRARRRRRRR RÉ 
* * 


* Temporisation suivant la valeur de À * 
* * 


RÉRRARÉRRAÉRRÉNRRÉÉRRÉÉÉRNRÉRRÉ RÉ NRARÈRRAN RÉ 

* 

* Entrée: À = Durée de la temporisation 

* Temporisation = À x 96 cycles (microsecondes) 

* COMPTO et COMPT1 sont utilisés pour temporiser 1 sec. 


DELAY LDX #$11 
$2 DEX 
BNE $2 Boucle 16 fois 
INC COMPTO ‘Incrément de COMPTI toutes 
BNE $3 + les 256 DELAYs = 24,6 ms 
INC COMPTI1 ‘Nombre / 256 des DELAYs totaux 
$3 SEC 
SBC #$01 
BNE DELAY ‘Boucle À x 96 microsecondes 
RTS 


* Table des temporisations 

* me me ee me me eue 0e 00 eue me mue om 

* Délais permettant une accélération et une 

* décélération progressives du bras du lecteur. 


DELAYON DFB 
DFB 
DFB 
DFB 


$01,$30,$28;Accélération & décélération 
$24,$20,$1E 

$1D, $1C, $1C; Vitesse stabilisée 
$1C,$1C,$1C 


DELAYOFF DFB 
DFB 
DFB 
DFB 


$70,$2C,$26;Idem pour les switches off 
$22,$1F,$1E 
$1D,$1C,$1C 
$1C,$1C,$1C 


CÉPELELELELLESLELELLIELLLLL LE) 


* * 


* Ecriture d'une piste * 


* * 

LELELELELELELELEESEEELEELLEE) 

* formate une piste et diminue GAP3 en fonction des tests 
* Entrée: ESSAIMAX = Nombre maximum d'essais par piste = 3 
* GAP3 = Nombre de bit de synchronisation 

La SLOT = Numéro du slot 

* TESTMAX = Nombre maximum de test par secteur 

* Sortie: Erreur > carry set 

Le Pas d'erreur -> carry clear 

* Sous-programmes appelés: RTS2 = Temporise 12 cycles 
r WRITADR = Ecriture des adresses 
Li WRITDATA = Ecriture des données 
* Variables locales: 

*  ESSAINB = Nombre d'essais de formatage par piste 

“ TESTNB = Nombre de tests de lecture 

ns SECT.NB = Numéro du secteur en cours 


WRITRACK LDA ESSAIMAX ;Nombre maximum (3) d'essais 
STA ESSAINB ‘de formatage d'une piste 
reformat LDY #$80 ‘Longueur du gapl = 128 
LDA #$00 ‘Premier secteur 
STA SECT.NB 
JUMP  S$gapl 
$secteur LDY GAP3 ‘Longueur du gap 3 
S$gapl LDX SLOT 
JSR WRITADR 
BCC S$noerr 
UMP  RTS2 ‘En cas d'erreur alors fin 
$noerr LDX SLOT 
JSR WRITDATA 
INC SECT.NB 
LDA SECT.NB 
CMP 4#$10 
BCC $secteur ‘Ecriture des 16 secteurs ? 
LDY #$0F ‘Carte des 16 secteurs 
STY SECT.NB 
LDA TESTMAX ‘Nombre maximum (16) 
STA TESTNB ‘de tentatives de lecture 
Sinitmap STA SECTMAP,Y ;Initialise la carte à $10 


417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 


434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 





TAY 





$initmap 
GAP3 


#$05 


$waitgap DELAY12B 
DELAY12B 
DELAY7 
DELAY4 


DEY 


Ssectest 


Soksect0 


$secterr DEC 


$errgap 


$cherche 


$erradr 


RTS2 


recomm LDX 


$wait 


Swaitgap 
SLOT 
READRES 
$errgap 
SECTEUR 
Soksect0 


GAP3 
GAP3 
GAPMIN 
Serrgap 


SLOT 
READRES 
$secterr 
SLOT 
READATA 
$secterr 
SECTEUR 
SECTMAP, Y 
$secterr 
#$FF 
SECTMAP, Y 
SECT.NB 
$sectest 


TESTNB 
$sectest 
ESSAINB 
$errgap 


TESTMAX 


TESTNB 
SLOT 
READRES 
$Serradr 
SECTEUR 
#$0F 
recomm 
TESTNB 
$cherche 


#$D6 


DELAY12B 


DELAY12B 
DELAY3 


DEX 
BNE 
JMP 


Swait 
reformat 


Nombre de sync. bytes (GAP3) - 5 
Attente proportionnelle au gap: 


‘ 12 = 12 
5 + 12 = 24 
FOUT Ce TT 
4 + #4 = 35 
Free +37 
i + 3 = 40 cycles = 1 sync byte 
:Tente de lire le champ d'adresse 


‘n° du secteur lu 
Secteur zéro ? 


Sinon GAP3 est trop grand 
+ on le diminue 
; GAP3 n'est-il pas trop court ? 


Erreur: le disque va trop vite 


Test des données 


‘n° du secteur vérifié 

‘Déjà vérifié ? 

:51 oui secteur suivant 

;Sinon le marque dans la carte 


;Un secteur de moins à tester 
‘Les 16 secteurs sont vérifiés ? 
“Oui, alors OK 

; et c'est fini 


; 16 tentatives de lecture 
‘Encore une ? 

+ 3 reformatages (GAP3 constant) 
:0On reformate la piste ? 

«Trop c'est trop 

: KO 


; TESTMAX x 2 = 32 
‘Recherche le dernier secteur 


sn° du secteur 

‘Dernier secteur ? 

Oui: reformate un peu plus loin 
Sinon: encore un essai ? 

; Cherche pendant 2 tours du disque 
{Secteur 15 non trouvé 

:KO (et RTS de temporisation) 


‘Attente égale à 214 bytes 
‘ 12 = 12 

5 + 12 = 24 

+ + 3 = 27 

FF am 29 

# + 3 = 32 cycles = 1 byte 
sRecommence un formatage 


Constantes et variables 


GAPMIN 
GAPMAX 
ESSAIMAX DFB 
TES TMAX 


SLOT DS 
PISTACTU DS 
TESTNB Ds 
SECTMAP DS 
PISTDEST DS 
SLOTARM DS 
PISTDIFF DS 
PISTPREC DS 


$0E 
$18 
$o3 
$10 


CCC 
nm 


‘Largeur maximum pour un gap 3 
‘ e minimum " PAR 
‘Nombre max d'essais de formatage 
‘Nombre maxi de tests de lecture 


‘Numéro du slot du drive x 16 
‘Piste réel x 2 (sauf init.= $50) 
{Nombre de tests 

‘Carte des secteurs vérifiés 
‘Piste destination x 2 (init.= 0) 


{Numéro du slot pour MOVARM 
‘Nombre de piste parcourues 
‘Piste précédente à PISTACTU x 2 
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CL & BBDO. Macintosh est une marque sous licence chez Apple Computer, Inc. 


je 


=. il} 





Tant qu'à faire 5 choses à la fois 


Que ceux qui 
aiment travailler en 
faisant deux ou trois 
choses à la fois ne 
changent rien, au 
contraire, avec 
Apple et Jazz ils 
ts peuvent faire mieux. 

Jazz de Lotus, c’est un programme 
créé pour Macintosh 512 Ko, équipé d'un 
lecteur externe qui permet de devenir un 
parfait jongleur professionnel. 

Cinq programmes en concert, 
c'est-à-dire un tableur, un grapheur, un 
gestionnaire de fichier, un traitement de 
texte et un programme de 
communication réunis en un seul 
programme. Ou comment être à cinq 
sur la même souris. 





Pouvoir gérer cinq applications à 
partir d'un seul écran, modifier une 
donnée dans une application et qu’elle 
se modifie automatiquement dans les 
autres, pouvoir sauter d'un graphe à un 
traitement de texte sans attendre les 
secondes qui durent une éternité pour 
changer de programme, c’est bien... 

Quand on s'aperçoit que ces cinq 
programmes sont individuellement 
excellents, c'est une révolution. 

Jazz, c’est l'outil idéal d’un directeur 
de service. 

Prenons un exemple qui exige beaucoup 
de souplesse, de rapidité, et de doigté, la 
direction des services secrets : 

- Avec un tableur capable d'afficher 
8192 lignes sur 256 colonnes, la gestion 
devient beaucoup plus facile. Si un fait 


nouveau apparaît, rien n’est plus facile 
que d'étudier deux ou trois hypothèses 
afin de ne pas être pris de court. 

- Quand un projet est fin prêt, il faut 
bien le présenter à ses supérieurs et 
parfois même beaucoup plus haut; un 
grapheur permet de transformer toutes 
les données numériques obscures en 
graphiques lumineux. 
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- Si le projet est accepté, un traitement 
de texte est nécessaire pour que chaque 
agent concerné soit au courant dans ses 
moindres détails. Evidemment quand 
on travaille dans un tel service il vaut 
mieux pour Macintosh pouvoir copier, 
effacer, modifier, ou coller des dessins, à 
chaque instant. 


Apple Computer France. Avenue de l'Océanie 





autant les faire en même temps. 
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Apple, le logo Apple sont les marques déposées d'Apple Computer, Inc. 
Jazz est une marque déposée de Lotus Development Corporation. 


Feuille de travail Jazz. 





Grâce à son gestionnaire de fichier, Jazz 
fait la fusion automatique entre un 
mémo et une liste de correspondants à 
sélectionner selon un critère spécial. 

Et avec un modem full duplex 1200 bauds 
en un instant votre correspondant 
reçoit toutes les informations précises à 
l'autre bout du monde. 

Avec Jazz l'entreprise est rentable, 
rondement menée, précise et discrète, 
inutile d’avoir 35 collaborateurs pour 
rédiger le projet. 

Jazz c'est cinq programmes liés 
entre eux si parfaitement que l'agent 
double est enfin enterré, place à l'agent 
quintuple. 





Z.A. de Courtabœuf, B.P 131, 91944 Les Ulis Cedex. 
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Les traitements de texte et, en 
fait, quasiment tous les 
programmes qui fonctionnent sur 
le Macintosh bénéficient de la 
présence de nombreuses polices 
de caractères. Ceci va des 
‘polices systèmes’ Chicago, 
Monaco et Genève jusqu'aux 
polices spécialisées (techniques, 
scientifiques...) en passant par 
les polices ‘ludiques’ style Cairo. 
Seulement, il y a un revers : il est 
souvent très difficile de savoir 
quelle(s) touche(s) doivent être 
enfoncée(s) pour obtenir tel 
caractère, d'autant plus que 
certaines polices en comporte 
plus de 220 (Times, par 
exemple). En fait, on pourrait 
classer les caractères en trois 
catégories : 


+ les caractères accessibles 
directement au clavier avec une 
seule touche ; 

+ les caractères accessibles au 
clavier, mais en deux temps 
(Option quelque chose plus 
autre chose) ; 

+ les caractères absolument 
inaccessibles soit sur le clavier 
normal, soit sur le clavier 
‘étendu’ du Macintosh Plus, 
soit sur les deux. 


Pour la première catégorie, la 
nouvelle version de l'accessoire 
“clavier” de chez Apple (mais si ! 
ceux qui ont commencé dans une 
calculatrice HP, avec des dollars 
issus de la vente d'un Combi 
Volkswagen et d'un garage...) 
fait l'affaire, même si ce n'est pas 
toujours pratique (on ne peut pas 
repérer un caractère au premier 
coup d'œil). 

Pour la seconde catégorie, un peu 
de chance et beaucoup de patience 
permettent parfois de s'en sortir 
(qui peut dire instantanément 
comment on obtient le caractère 
‘É’, sachant que l'on ne l'obtient 
pas de la même façon sur le Mac 
et sur le MacPlus ?). 


TO 








Quant à la troisième catégorie, 
cela devient presque impossible, 
car une des solutions les plus 
simples consisterait à placer le 
caractère voulu dans le 
presse-papiers depuis un 
programme Basic et avec des 
CHRS(Truc), ‘Truc’ étant le code 
ASCII du caractère (encore faut-il 
le connaître), ensuite passer à 
MacWrite (par exemple) pour 
enfin coller le fameux caractère 
dans le document à traiter. Pas 
très souple. 


Voilà qui justifiait l'écriture du 
petit accessoire “ad litteram” qui, 
à Pom's, remplace “Clavier” 
depuis déjà plusieurs mois, ce qui 
nous permet d'être absolument 
sûr de son efficacité, ainsi que de 
sa fiabilité. 


Utilisation 


Il n'y a pas grand chose à dire. 
L'accessoire respectant scrupu- 
leusement l'“interface utilisateur” 
Macintosh, vous retrouverez ici 
toute les fonctions qui font le 
charme de cette machine 
Couper/Copier/Coller depuis le 
menu “Édition” ou au clavier, 
sélection, sélection étendue, 
édition, etc. et, si vous disposez 
d'un MacPlus, déplacements par 
les touches fléchées. 


#Pom's* 
Times 
Symbol 

Helvetica 
Courier 
Chicago 
Geneva 
Monaco 














En fait, si on excepte des points 
de détail que nous examinerons 
plus bas, la méthode d'utilisation 
ce résume à ceci : 





AD LITTERAM, POUR TRAVAILLER... A LA LETTRE 


Julien Thomas 


+ appel de l'accessoire depuis le 
menu & (classique !) ; 

+ choisir la police dans le menu 
installé par l'accessoire 
(comme “Clavier”?) ; 

+ sélection et copie des caractères 
désirés ; 

+ passage au document dans 
lequel seront collés les 
caractères. 


Détermination de la 
taille de la police 


Notre choix s'est porté sur le 
format ‘18 points’, ce qui 
autorise une bonne lisibilité. 
Toutefois, les polices de 
caractères n'utilisant pas cette 
taille n'étant pas rares, il fallait 
bien sûr prévoir l'affichage en 
fonction d'autres possibilités, 
d'autant plus que, même si une 
police existe en 18 points, vous 
pouvez fort bien ne placer, par 
exemple, que les formats 9, 12 et 
14 dans le système. Forts de ces 
constatations qui, vous en 
conviendrez aisément, ont 
demandé un effort intellectuel à la 
limite de l'insoutenable, nous 
avons employé le ‘mécanisme’ 
suivant : 


+ affichage en 18 points si cette 
taille existe ; 

* sinon, on part à la recherche 
d'une taille valide inférieure à 
18 points TTC 
jusqu'à 6 points ; 

+ si la police en question n'existe 
pas dans une taille inférieure à 
18, on essaie, en désespoir de 
cause, de trouver un format 
compris entre 19 et 24, en 
partant de l“‘axe” 18 ; 

*_sil'on a toujours rien trouvé de 
valide, il ne nous reste plus 
qu'une seule solution (mais 
Ho pas le suicide. 
m'enfin !), forcer l'affichage 
de la police en 24 points, ce 
qui n'est ni très esthétique ni 
très rapide, mais on peut se 
consoler en se disant que ce 
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cas de figure n'apparaîtra 
pratiquement jamais. 


Dans le cas, pas fréquent, d'une 
police existant uniquement en 
taille 24 points ou plus, ou encore 
d'une police spécialisée 
comportant un grand nombre de 
caractères très larges, il y a de 
fortes chances pour que certains 
d'entre-eux se retrouvent hors de 
la fenêtre de l'accessoire. Si cela 
arrive, et si le caractère recherché 
n'est pas visible, il suffit de 
couper (ou effacer) une chaîne de 
longueur suffisante pour que les 
caractères masqués soient à 
nouveau apparents. 


Si vous 


programmez.. 


..et quel que soit le langage 
utilisé, vous êtes certainement 
amené à rechercher dans une table 
(que l'on a rarement sous la main 
au moment voulu) le code ASCII 
de tel ou tel caractère ; nous 
avons pensé à vous. Si un 
caractère est sélectionné (un seul) 
son code ASCII en notation 
décimale s'affiche dans une petite 
‘case’ située en bas et à droite de 
notre fenêtre : 


:<=>27@ABCægé° 
[ÉARALETAL 2 











Si vous cliquez sur ce code, vous 
obtenez le code ASCII en 
notation hexadécimale, et ce tant 
que le bouton de la souris est 
maintenu enfoncé. Pendant cette 
période, le curseur devient 
invisible afin de ne pas géner la 
lecture du code : 


ETnfe00ægéèi-V 







:<=>7@ABCægeé° 
ANAL ETAL 0 


I1 faut noter que, sur le dessin 
ci-dessus, le curseur n'est pas 
invisible, ceci en raison de la 
difficulté de représenter ce type 
d'élément lorsque, justement, il 
est invisible. Sur ce, nous allons 
maintenant prendre un repos tout 
à fait indispensable. . 


ad litterarnr 


ad litter 





Fichier Exec 
‘ad litteram.Job’ 


Asm adlitteram.Asm Exec Edit 
Link ad litteram.Link Font-DA Mover Edit 


Fichier 
‘ad litteram.Link’ 


] 

/Resources 

ad litteram 

loutput Accessorium 
[Type 'DFIL''DMOV' 
$ 
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Source 
‘ad litteram.Asm' 


Note : le caractère ‘f' indique la 
continuité d'une ligne (ne pas 
l'insérer dans le code l). 
RESOURCE 'DRVR: 30 ‘ad litteram' 


; Routines utilisées : 


.Trap _AddResMenu $A94D 
.Trap _BeginUpdate $A922 
.Trap _Checkltem $A945 
.Trap _DeleteMenu $A936 
.Trap _DisposMenu $A932 
.Trap _DisposWindow $A914 
.Trap _DrawControls $A969 
.Trap _DrawMenuBar $A937 





Comment faire ? 1 


Vous n’avez pas la dique Mac 
25: 


Pour générer l’accessoire à actr 
du source et des fichiers listés plus 
bas, il faut : 

. placer, sur une même disquette, 
l'éditeur (Edit), l’assembleur 
(Asm), le ‘linker’ (Link), Exec et 
Font-DA Mover {avec un fichier 


tous ceci trouve place sans. 


problème, même sur une dis 
quette 400Ko) ; 
ous Exec, lancer ‘ad Lueran. 
Job’. En fin d'exécution, et s’il 
n'y a pas eu d'erreur d'as- 
semblage, Font-DA Mover est 
appelé automatiquement ; 
ouvrir le fichier ‘Accessorium et 
installer l'accessoire où vous 
voulez ; 

° c'esttout.…. 


Vous avez la disquette Mac 25°: 


° utilisez Font-DA Mover pour. 


installer l'accessoire sur les dis- 
quettes de votre choix (il se 
trouve à la fois dans le système et 
dans un fichier FACCES- 
sorium ; 

et tout. 





.Trap _DrawString $A884 
.Trap _EndUpdate $A923 
.Trap _EraseRect $A8A3 
.Trap _FindControl $A96C 
.Trap _FrameRect $A8A1 
.Trap _GetCursor $A9B9 
.Trap _GetFNum $A900 
.Trap _GetFontinfo $A88B 
.Trap _GetHandieSize $AO25 
.Trap _Getltem $A946 
.Trap  _GetMouse $A972 
.Trap  _GetPort $A874 
.Trap _GetScrap $A9FD 
.Trap _GlobalToLocal $A871 
.Trap _HideCursor $A852 
.Trap _HiliteControl $A95D 
.Trap _HiliteMenu $A938 
.Trap _HLock $A029 
Trap _HUnLock $AO2A 
.Trap _InitCursor $A850 
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.Trap  _InsertMenu $A935 
.Trap _InvalRect $A928 
.Trap _MoveTo $A893 
.Trap _NewControl $A954 
.Trap _NewMenu $A931 
.Trap _NewPtr $A11E 
.Trap _NewWindow $A913 
.Trap _Pack7 $A9EE 
.Trap _PtinRect $A8AD 
.Trap _PutScrap $A9FE 
.Trap _RealFont $A902 
.Trap _SetCTitle $A95F 
.Trap _TEActivate $A9D8 
.Trap _TECalText $A9D0 
.Trap _TEClick $A9D4 
Trap  _TECopy $A9D5 
.Trap _TECut $A9D6 
.Trap _TEDeactivate $A9D9 
.Trap _TEDelete $A9D7 
.Trap _TEDispose $A9CD 
.Trap _TEldie $A9DA 
.Trap _TElnsert $A9DE 
.Trap _TEKey $A9DC 
.Trap _TENew $A9D2 
.Trap _TEPaste $A9DB 
.Trap _TEUpdate $A9D3 
.Trap _TextFont $A887 
.Trap _TextSize $A88A 
.Trap _TrackControl $A968 
.Trap _SetCursor $A851 
.Trap _SetPort $A873 
.Trap _ShowOCursor $A853 
.Trap _StilDown $A973 
.Trap _StringWidth $A88C 
.Trap _SysBeep $A9C8 
.Trap _ValidRect $A92A 
.Trap _ZeroScrap $A9FC 
; EQUIVALENCES 
; Type d'événements 
mButDwnEvt EQU 1 
keyDwnEvt EQU 3 
keyUpEvt EQU 4 
autoKeyEvt EQU 5 
updatEvt EQU 6 
activateEvt EQU 8 
; Décalages/enregistrement événement 
evtNum EQU  $0 
evtMessage EQUAS2 
evtMouse EQU  $A 
evtMeta EQU $E 
evtMBut EQU $F 
; Messages pour le ‘driver’ (accessoire) 
accEvent EQU $40 
accCursor EQU  $42 
accMenu EQU $43 
accUndo EQU  $44 
accCut EQU  $46 
accCopy EQU $47 
accPaste EQU $48 
accClear EQU $49 


; Bits pour fenêtre activée ou 


; désactivée et pour touche ‘shift 


activeFlag EQU 0 
shiftKey EQU 9 

; Décalages/enregistrement fenêtre 
portRect EQU  $10 
WindowKind EQU  $6C 
WindowSize EQU  $9C 

; Type de fenêtre 

noGrowDocProc EQU 4 


; Pour la routine de conversion 


numTosString EQU 0 

; Décalages/Device Control Entry" 
dCtlWindow EQU $1E 
dCtiRefNum EQU $18 
dCtIMenu EQU  $26 

; Pour passage des événements 
CSCode EQU  $1A 
CSParam EQU  $1C 

; Décalages/rectangle ‘QuickDraw' 
top EQU 0 

left EQU 2 

bottom EQU 4 

right EQU 6 

; Adresses pour 'Couper/Coller' 
TEScrpLength EQU $ABO 
TEScrpHandle EQU  $AB4 
Scratch8 EQU  $9FA 

; Décalages/enregistrement ‘TextEdit' 
teLineHite EQU  $18 
teAscent EQU $1A 
teSelStart EQU  $20 
teSelEnd EQU  $22 
teLength EQU $3c 
teTextH EQU  $3E 
teFont EQU  $4A 
teSize EQU  $50 

; Décalages/enregistrement ‘Fontinfo' 
ascent EQU 0 

descent EQUSN 2 

; Curseurs 'système" 

iBeamCursor EQU 1 
watchCursor EQU 4 

; Pour instruction *_NewPtr' 

clear EQU  $200 

; Equivalences ‘maison 

BS EQU 8 

MaxC EQU 300 
HandleCtl EQU WindowSize 
HandleCtI2 EQU HandleCti+4 
HandiMenu EQU HandleCtl2+4 
RefMenu EQU HandlMenu+4 
TamponCti EQU RefMenu+2 
TamponTx EQU TamponCti+128 
Article EQU TamponTx+240 
NPoli EQU Article+2 
DrapeauMdf EQU NPoli+2 
DrapeauColle EQU DrapeauMdf+1 
DrapeauCurs EQU DrapeauColle+1 
CodeCourant EQU DrapeauCurs+1 
HandiText EQU CodeCourant+1 
Info EQU HandiText+4 
HandleAcc EQU Info+8 
NombreDeci EQU HandleAcc+4 





PositionND EQU NombreDeci+4 
NbrHexa EQU PositionND+2 
PositionNH EQU NbrHexa+4 
TailleTampon EQU PositionNH+2 
Oui EQU $100 
NbrCaracteres EQU 240 


; En-tête de l'accessoire (voir Pom's 19) 


Base 

$400 
0 
$16A 
0 


Ouverture-Base 
Status-Base 
Controle-Base 
Status-Base 
Fermeture-Base 


88808 88480 


Titre 


=) 
Q 


.B 24,'adlitteram (et [ 
encore.….),0 
Titre2 
DC.B 7,17,/Pom"s',17 


; OUVERTURE DE L'ACCESSOIRE 

; Teste si l'accessoire est déjà ouvert. 
; Si oui, retour vers l'application. 

; Autrement, on débute l'initialisation 


; par la création d'un tampon de 

; mémoire non relogeable. 

Ouverture 
MOVEM.L D3-D7/A1-A4,-(SP) 
MOVEA.L A1,A4 
TST.L dCtlWindow(A4) 
BNE Status4 
SUBQL  #4,SP 
MOVE.L  SP,-(SP) 
_GetPort 
MOVE.L  #TailleTampon,DO 
_NewPtr,clear 
TST DO 
BEQ.S MemoireOK 
MOVE #7,-(SP) 
_SysBeep 
BRA Status2 


; Ouverture de la fenêtre 


MemoireOK 

MOVEA.L A0,A3 

SUBQ.L  #4,SP 

MOVE.L  A3,-(SP) 

PEA RectFenetre 

PEA Titre 

MOVE #Oui,-(SP) 

MOVE #noGrowDocProc,/f 
-(SP) 

MOVEQ.L #-1,D0 

MOVE.L  DO,-(SP) 

MOVE #Oui,-(SP) 

CLR.L -(SP) 

_NewWindow 

_SetPort 

MOVE.L  A3,dCtlWindow(A4) 

MOVE.L  DctlRefNum(Ad),] 
WindowKind(A3) 
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; Création du menu ‘Pom's' 


MOVE dCtlRefNum(Ad),DO 
NOT DO 

LSL #5,D0 

ORI #$C000,D0 
SUBQ.L  #4,SP 

MOVE D0,dCtlMenu(A4) 
MOVE D0,RefMenu(A3) 
MOVE D0,-(SP) 

PEA Titre2 

_NewMenu 

MOVE.L (SP),HandiMenu(A3) 
MOVE.L  #FONT',-(SP) 
_AddResMenu 


; Création du bouton ‘Police .. complète’ 


SUBQL  #4,SP 

MOVE.L  A3,-(SP) 

PEA RectBouton 

PEA TitreBouton 

MOVE #Oui,-(SP) 

CLR.L -(SP) 

CLR.L -(SP) 

CLR.L -(SP) 
_NewControl 

MOVE.L  (SP})+,HandleCti(A3) 


; Initialisation de la chaîne contenant 
; les caractères de code ASCII 16-255 


LEA TamponTx(A3),A2 

MOVEQ  #$10,D1 

MOVE #NbrCaracteres-1,D0 
@1i MOVE.B D1,(A2)+ 

ADDQ.B  #1,D1 

DBRA D0,@1 


; Création d'un enregistrement 

; TextEdit’, détermination de la police et 
; de la taille de départ, initialisations 

; diverses et retour à l'application en 

; COUTS. 


LEA Chaine1,A2 
LEA TamponCti+1(A3),A1 
MOVEQ  #6,D0 
@2 MOVE.B (A2}+,(A1)+ 
DBRA D0,@2 
BSR NouveauTexte 
BSR Menu2 
ST DrapeauMdf(A3) 
BSR inserer 
PEA RectVisTexte 
_ValidRect 
SF DrapeauCurs(A3) 
MOVE #$0324,NbrHexa(A3) 
_InitCursor 
Status2 
_SetPort 
Status4 
MOVE.L  dCtlWindow(A4),A3 
MOVE RefMenu(A3),[ 
dCtlMenu(Ad) 
Status3 


MOVEM.L (SP)+,D3-D7/A1-A4 
Status 

MOVEQ 

RTS 


#0,D0 
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; FERMETURE DE L'ACCESSOIRE 


; Suppression de la fenêtre, du menu, 
; de l'enregistrement TextEait'… 


Fermeture 
MOVEM.L A3-A4,-(SP) 
MOVEA.L Ai,A4 
MOVEA.L dCtiWindow(A4),A3 
MOVE.L  HandiText(A3),-(SP) 
_TeDispose 
MOVE dCtlMenu(A4),-(SP) 
_DeleteMenu 
MOVE.L  HandiMenu(A3),-(SP) 
_DisposMenu 
_DrawMenuBar 
MOVE.L  A3,-(SP) 
_DisposWindow 
CLR.L dCtIWindow(A4) 
MOVEA.L A4,A1 
MOVEM.L (SP)+,A3-A4 
BRA Status 


; Routine de contrôle. Aiguille 
; l'accessoire en fonction des 
; Messages passés par le système 


Controle 
MOVEM.L D3-D7/A1-A4,-(SP) 
MOVEA.L A1,A4 
MOVEA.L A0O,A2 
MOVEA.L dCtiWindow(A4),A3 
MOVE.L  A3,-(SP) 
_SetPort 
MOVE CSCode(A2),D0 
CMPI #accEvent,DO 
BEQ.S Evenement 
CMPI #accCursor,DO 
BEQ Curseur 
CMPI #accMenu,DO 
BEQ Menu 
CMPI #accCut,DO 
BEQ Couper 
CMPI #accCopy,D0 
BEQ Copier 
CMPI #accPaste,DO 
BEQ Coller 
CMPI #accClear,DO 
BEQ Effacer 
BRA Status3 


; Aiguillage des événements 


Evenement 
MOVEA.L CSParam(A2),A2 


MOVE EvtNum(A2),D0 
CMP #mButDwnEvt,DO 
BEQ.S Contenu 

CMPI #keyDwnEvt,DO 
BEQ Touche 

CMPI #autoKeyEvt,DO 
BEQ Touche 

CMPI #updatEvt,DO 
BEQ MiseJour 

CMPI #activateEvt,DO 
BEQ Active 

BRA Status3 


; On arrive ici en cas de ‘click’ dans la 
; fenêtre de l'accessoire (action sur la 
; zone de texte, le bouton ‘Police … 


Je 
LES 


ES 
2 


; complète’, ou encore la petite case 
; d'affichage du code ASCII du 
; Caractère sélectionné) 
Contenu 
PEA EvtMouse(A2) 
_GlobalToLocal 
CLR -(SP) 
MOVE.L  EvtMouse(A2),-(SP) 
MOVE.L  A3,-(SP) 
PEA HandleCtI2(A3) 
_FindControl 
TST (SP})+ 
BEQ.S @1 
CLR -(SP) 
MOVE.L  HandleCtl2(A3),-(SP) 


@1 


@4 


@3 


MOVE.L  EvtMouse(A2),-(SP) 

CLR.L -(SP) 

_TrackControl 

TST (SP)+ 

BEQ.S @1 

PEA RectVisTexte 

_EraseRect 

MOVE.L  HandiText(A3),-(SP) 

_TEDispose 

BSR NouveauTexte 

BSR inserer 

BRA Status3 

CLR -(SP) 

MOVE.L  EvtMouse(A2),-(SP) 

PEA RectVisTexte 

_PtinRect 

TST (SP)+ 

BNE.S @3 

TST.B CodeCourant(A3) 

BEQ Status3 

CLR -(SP) 

MOVE.L  EvtMouse(A2),-(SP) 

PEA RectCode 

_PtinRect 

TST (SP)+ 

BEQ Status3 

PEA RectCode2 

_EraseRect 

BSR PoliceChicago 

MOVE PositionNH(A3),-(SP) 

MOVE #288,-(SP) 

_Moveto 

PEA NbrHexa(A3) 

_DrawString 

_HideCursor 

CLR -(SP) 

_StillDown 

TST (SP)+ 

BNE.S @4 

PEA RectCode2 

_EraseRect 

BSR AfficheCode 

_ShowCursor 

BRA Status3 

MOVE.L  evtMouse(A2),-(SP) 

BTST #shiftKey,[ 
evtMeta(A2) 








= 
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TD 


y 


Mac Plus 


SNE DO 
MOVE.B  DO,-(SP) 


MOVE.L  HandiText(A3),-(SP) 
_TEClick 

BSR DeReference 
MOVE teSelStart(A0),DO 
MOVE teSelEnd(A0),D1 
SUB DO,D1 

SUBQ #1,D1 

BNE @2 

MOVEA.L teTextH(A0),A0 
MOVEA.L (AO),A0 

MOVE.B  0(A0,D0),D0 
CMP.B CodeCourant(A3),DO 
BEQ Status3 

MOVE.B  DO0,CodeCourant(A3) 
ANDI.L #$FF,D0 

LEA NombreDeci(A3),A0 
CLR -(SP) 

_Pack7 

BSR PoliceChicago 
CLR -(SP) 

PEA NombreDeci(A3) 
_StringWidth 

MOVE #38,D0 

SUB (SP)+,D0 

LSR #1,D0 

ADD #351,D0 

MOVE DO,PositionND(A3) 
CLR.L DO 

MOVE.B  CodeCourant(A3),D0 
DIVU #16,D0 

BSR CodeHexa 
MOVE.B  DO,NbrHexa+2(A3) 
SWAP DO 

BSR CodeHexa 
MOVE.B  DO,NbrHexa+3(A3) 
CLR -(SP) 

PEA NbrHexa(A3) 
_StringWidth 

MOVE #38,D0 

SUB (SP)+,D0 

LSR #1,D0 

ADD #351,D0 

MOVE D0,PositionNH(A3) 
PEA RectCode2 
_EraseRect 

BSR AfficheCode 

BRA Status3 

TST.B CodeCourant(A3) 
BEQ Status3 

PEA RectCode2 
_EraseRect 

SF CodeCourant(A3) 
BRA Status3 


; Segment utilisé en cas d'action sur le 
; clavier. On détermine s'il s'agit d'un 

; caractère à insérer dans le texte ou 

; d'une commande (couper, copier ou 
; coller) 


Touche 


BTST 


#0,evtMeta(A2) 





BEQ.S @2 
MOVE evtMessage+2(A2),[ 
DO 
ANDI #$DF,D0 
SUBI #86,D0 
BEQ Coller 
SUBQ #2,D0 
BEQ Couper 
SUBI #$FFEB,D0 
BEQ Copier 
BRA Status3 
@2 CMPIB  #BS,/f 
evtMessage+3(A2) 
BEQ.S @1 
BSR DeReference 
CMPI #MaxC,teLength(AO) 
BLT.S @1 
MOVE #7,-(SP) 
_SysBeep 
BRA Status3 
@1 MOVE evtMessage+2(A2),[ 
-(SP) 
MOVE.L  HandiText(A3),-(SP) 
_TEKey 
BSR ValideBouton 
BSR EffaceCode 
BRA Status3 
; Routine de mise à jour 
MiseJour 


MOVE.L  A3,-(SP) 
_BeginUpdate 


PEA RectTexte 
_FrameRect 

PEA RectCode 
_FrameRect 

TST.B CodeCourant(A3) 
BEQ.S @1 

BSR PoliceChicago 
BSR AfficheCode 
MOVE.L  A3,-(SP) 
_DrawControls 

PEA RectVisTexte 
_EraseRect 

PEA portRect(A3) 
MOVE.L  HandiText(A3),-(SP) 
_TEUpdate 

MOVE.L  A3,-(SP) 
_EndUpdate 

BRA Status3 


; Réponse à un message 'Activate' ou 
; Deactivate' pour rendre active ou 
; inactive la fenêtre de l'accessoire 


Active 

BTST #activeFlag,f 
evtMBut(A2) 

BEQ.S @1 
MOVE.L  HandiText(A3),-(SP) 
_TEActivate 
SF DrapeauColle(A3) 
MOVE.L  HandiMenu(A3),-(SP) 
CLR -(SP) 
_InsertMenu 
_DrawMenuBar 
BRA Status3 

@1i MOVE.L  HandiText(A3),-(SP) 


_TEDeactivate 





MOVE RefMenu(A3),-(SP) 
_DeleteMenu 
_DrawMenuBar 

BRA Status3 


; Changement de la forme du curseur si 
; nécessaire (flèche ou curseur type 
; texte'en forme de |) 


Curseur 

Buffer SET -4 
LINK A6,#Buffer 
MOVE.L  HandiText(A3),-(SP) 
_TEldle 
PEA Buffer(A6) 
_GetMouse 
CLR -(SP) 
MOVE.L  Buffer(A6),-(SP) 
PEA RectVisTexte 
_PtinRect 
TST (SP)+ 
BEQ.S @1 
TST.B DrapeauCurs(A3) 
BNE.S @2 
SUBQ.L  #4,SP 
MOVE #iBeamCursor,-(SP) 
_GetCursor 
MOVEA.L (SP)+,A0 
MOVE.L  (AO),-(SP) 
_SetCursor 
ST DrapeauCurs(A3) 
BRAS @2 

@1 TST.B DrapeauCurs(A3) 
BEQ.S @2 
SF DrapeauCurs(A3) 
_InitCursor 

@2 UNLK A6 
BRA Status3 


; Traitement d'un changement de police 
; (menu ‘Pom's') 


Menu 
MOVE CSParam+2(A2),D7 
CMP Article(A3),D7 
BEQ Status3 
SF D6 
BRAS Li 

Menu2 
MOVEQ  #1,D7 
CLR Article(A3) 
ST D6 

Li  SUBQ #4,SP 
MOVE #watchCursor,-(SP) 
_GetCursor 
MOVEA.L (SP)+,A2 
MOVE.L  (A2),-(SP) 
_Setcursor 
BSR MenuPolices 
MOVE NPoli(A3),-(SP) 
_TextFont 
MOVE D7,-(SP) 
_TextSize 
PEA Info(A3) 
_GetFontinfo 
BSR DeReference 
MOVE NPoli(A3),teFont(A0) 
MOVE D7,teSize(A0) 
MOVE Info+ascent(A3),DO 
MOVE D0,teAscent(A0) 
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ad litteram (et encore.) 


29 


Police Cairo complète 


ADD Info+descent(A3),D0 
MOVE D0,teLineHite(AO) 
MOVE.L  HandiText(A3),-(SP) 
_TeCalText 
TST.B D6 
BEQ.S @1 
RTS 
@1 PEA RectVisTexte 
_InvalRect 
CLR -(SP) 
_HiliteMenu 
SF DrapeauCurs(A3) 
_InitCursor 
BRA Status3 
; COUPER 
Couper 
BSR VerifSelection 
BEQ Status3 
MOVE.L  HandiText(A3),-(SP) 
_TeCut 
BSR TEToScrap 
BSR ValideBouton 
BRA Status3 
; COPIER 
Copier 
BSR VerifSelection 
BEQ Status3 
MOVE.L  HandiText(A3),-(SP) 
_TeCopy 
BSR TEToScrap 
BRA Status3 
; COLLER 
Coller 
TST.B DrapeauColle(A3) 
BNE.S @2 
ST DrapeauColle(A3) 
BSR TEFromScrap 


@2 MOVEAL HandiText(A3),A0 
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MOVEA.L (A0),A0 
MOVE TeScrpLength,DO 
ADD teLength(A0),DO 


MOVE teSelEnd(AO0),D1 
MOVE teSelStart(A0),D2 
SUB D2,D1 
SUB D1,D0 
CMPI #MaxC,DO 
BLT.S @1 
MOVE #7,-(SP) 
_SysBeep 
BRA Status3 

@1i TST TeScrpLength 
BEQ Status3 
MOVE.L  HandiText(A3),-(SP) 
_TePaste 
BSR ValideBouton 
BRA Status3 

; EFFACER 

Effacer 
BSR VerifSelection 
BEQ Status3 
MOVE.L  HandiText(A3),-(SP) 
_TEDelete 
BSR ValideBouton 
BRA Status3 


; Sous-programme pour valider le 
; bouton ‘Police … complète’ 


ValideBouton 


TST.B DrapeauMdf(A3) 

BNE.S @1 

MOVE.L  HandleCtiI(A3),-(SP) 

CLR -(SP) 

_HiliteControl 

ST DrapeauMdf(A3) 
@1 RTS 


; Sous-programme pour invalider le 
; bouton 


pis 
LES 


ES 
5 


InvalideBouton É 
TST.B DrapeauMdf(A3) 
BEQ.S 1 
MOVE.L  HandleCtl(A3),-(SP) 
MOVE #$FF,-(SP) 
_HiliteControl 
SF DrapeauMdf(A3) 

@1 RTS 


; Passage du texte du presse-papiers 
; DeskScrap' au presse-papiers 
; TextEdit' (voir Pom's 24) 


TEFromScrap 
MOVEM.L A0-A1/D0-D2,-(SP) 
SUBQ #4,SP 
MOVE.L  teScrpHandie,-(SP) 
MOVE.L  #TEXT',-(SP) 
PEA scratch8 
_GetScrap 
MOVE.L  (SP)+,D0 
BPL.S @1 
MOVEQ  #0,D0 

@1 MOVE D0,TeScrpLength 
MOVEM.L (SP)+,A0-A1/D0-D2 
RTS 


; Passage du texte du presse-papiers 
; TextEdit' au presse-papiers 
; DeskScrap' (voir Pom's 24) 


TEToScrap 
MOVEM.L AO-A1/D0-D2,-(SP) 
SUBQ #4,SP 
_ZeroScrap 
ADDQ #4,SP 
MOVEA.L teScrpHandie,AO 
SUBQ #4,SP 
_GetHandleSize 
MOVE.L  DO,-(SP) 
_HLock 
MOVE.L  #TEXT',-(SP) 
MOVE.L  (A0),-(SP) 
_PutScrap 
MOVEA.L teScrpHandle,AO 
_HUnLock 
MOVE.L (SP)+,D0 
MOVEM.L (SP)+,A0-A1/D0-D2 
RTS 
; Efface le code ASCII 
EffaceCode 
TST.B CodeCourant(A3) 
BEQ.S @1 
PEA RectCode2 
_EraseRect 
SF CodeCourant(A3) 
@1i RTS 


; Sous-programme pour vérifier si des 
; caractères sont sélectionnés 


VerifSelection 
BSR.S DeReference 
MOVE teSelStart(A0),DO 
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CMP 
RTS 


teSelEnd(A0),DO 


; Déréférence' le 'Handle' de 
; l'enregistrement 'TextEdit' 


DeReference 


MOVEA.L HandiText(A3),A0 
MOVEA.L (A0),A0 


RTS 
; Création d'un nouvel enregistrement 
; TextEait' 
NouveauTexte 
SUBQ.L  #4,SP 
PEA RectDestText 
PEA RectVisTexte 
_TENew 
MOVE.L (SP)+,HandiText(A3) 
BSR EffaceCode 
RTS 
; Insertion de la chaîne de caractères 
; (ASCII 16 à 255) 
Inserer 
PEA TamponTx(A3) 
MOVE.L  #NbrCaracteres,-(SP) 
MOVE.L  HandiText(A3),-(SP) 
_TElnsert 
MOVE.L  HandiText(A3),-(SP) 
_TEActivate 
BSR InvalideBouton 
RTS 


; Mise à jour du menu ‘Pom's'et 
; changement du texte et du bouton en 
; fonction de la police sélectionnée 


MenuPolices 
Buffer SET -100 
LINK A6,#Buffer 
TST Article(A3) 
BEQ.S @1 
MOVE.L  HandiMenu(A3),-(SP) 
MOVE Article(A3),-(SP) 
CLR -(SP) 
_Checkltem 
@1 MOVE D7,Article(A3) 
MOVE.L  HandiMenu(A3),-(SP) 
MOVE D7,-(SP) 
ST -(SP) 
_Checkitem 
MOVE.L  HandiMenu(A3),-(SP) 
MOVE D7,-(SP) 
PEA Buffer(A6) 
_Getltem 
LEA Buffer(A6),A2 
LEA TamponCil+8(A3),A1 
MOVE.B  (A2)+,D0 
EXT DO 
SUBQ #1,D0 
@2 MOVE.B (A2)+,(A1)+ 
DBRA D0,@2 
LEA Chaine2,A2 


MOVEQ  #8,D0 

@3 MOVE.B (A2)+,(A1)+ 
DBRA D0,@3 
MOVEQ  #16,D0 
ADD.B Buffer(A6),DO 
MOVE.B  DO,TamponCti(A3) 
MOVE.L  HandleCti(A3),-(SP) 
PEA TamponCti(A3) 
_SetClTitle 
PEA Buffer(A6) 
PEA NPoli(A3) 
_GetFNum 
MOVEQ  #18,D7 

@4 BSR.S TailleValide 
BNE.S @5 
SUBQ #1,07 
CMPI #5,D7 
BNE.S @4 
MOVE #19,D7 

@6 BSR.S TailleValide 
BNE.S @5 
ADDQ #1,D7 
CMPI #25,D7 
BNE.S @6 
MOVEQ  #18,D7 

@5 UNLK A6 
RTS 


; Pour déterminer si la police 
; Sélectionnée existe en taille N (D7) 


TailleValide 
SUBQ.L  #2,SP 
MOVE NPoli(A3),-(SP) 
MOVE D7,-(SP) 
_RealFont 
TST (SP)+ 
RTS 


; Affiche le code ASCII (décimal) du 
; caractère sélectionné 


AfficheCode 
MOVE PositionND(A3),-(SP) 
MOVE #288,-(SP) 
_MoveTo 
PEA NombreDeci(A3) 
_DrawString 
RTS 


; Décimal -> Hexadécimal 


CodeHexa 
CMPI.B 
BGT 
ORI.B 
RTS 

@1 ADDIB 
RTS 


#9,D0 
@1 
#$30,D0 


#55,D0 


; Pour police Chicago 12 points 


PoliceChicago 


CLR -(SP) 
_TextFont 
MOVE #12,-(SP) 
_TextSize 
RTS 

; Constantes 


RectFenetre DC 41,4,336,396 





RectTexte DC 
RectVisTexte DC 
RectDestText DC 
RectBouton DC 
RectCode DC 
RectCode2 DC 


2,2,271,390 
4,4,269,388 
6,6,450,376 
274,2,293,348 
274,350,293,390 
275,351,292,389 


Chainei DC.B ‘Police ‘ 
Chaine2 DC.B ‘ complète" 
TitreBouton  DC.B 0,'‘ 





PaintMover et 
MacPlus 


PaintMover nécessite plus de 
128K0 pour fonctionner ; aussi, 


si vous avez réservé 768 Ko de 
cache mémoire, le programme 
se ‘plantera’, hélas sans mes- 
sage. 








Et pourtant, 
il fonctionne ! 






B.-P. Eminet et É. Vernier dans 
un livre consacré au Basic 
Microsoft sur Macintosh, publié 
aux éditions McGraw-Hill font 
référence au programme de J.- 
L. Bazanegue paru dans Pom’s 
16 (‘personnalisez vos dis- 
quettes Macintosh’),  pro- 
gramme qui ne fonctionnerait 
pas. 


Doit-on rappeler ici que : 

° ce programme était conçu 
pour le Basic 1.0 ; 

* à l’époque, le Basic 2.0 n’était 
pas diffusé ; 

* l’adaptation au Basic 2.0 a été 
publiée dans le numéro 17 ; 

* même ainsi adapté, ce pro- 
gramme a toutes les chances 
de ne pas fonctionner avec 
une hypothétique version 4.12 
ou 6.0 de ce même Basic. 


Moralité, quand on ne sait pas. 
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Ascenseurs en Basic 


Bernard Baz » 


Nous vous présentons ici un 
sous-programme à variables 
locales, donc ‘transparent’ qui 
vous permettra d'initialiser, 
afficher et gérer un ascenseur. 
Comme il est inutile de présenter 
cette élément important de 
l'‘interface utilisateur’, nous 
passeront immédiatement à la 
méthode d'utilisation du 
sous-programme, baptisé “GF”. 


Le sous-programme “GF”, tel 
qu'il est présenté ici, est 
essentiellement destiné à gérer 
une. fenêtre. de -texte-.Le 
programme de démonstration met 
ceci en évidence en affichant des 
lignes de texte avec différentes 
polices et en différentes tailles, 
les déplacements verticaux de ces 
lignes suite aux actions sur 
l'ascenseur étant proportionnels 
aux caractères utilisés. Vous 
pourrez toutefois utiliser “GF” 
pour autre chose que du texte en 
remplaçant la routine ‘Afficher’ 
par la routine de votre choix. 


Arguments 
d'appel de GF 


Il s'agit d'une valeur permettant 
d'indiquer au sous-programme la 
tâche à accomplir, ceci en 
fonction des message passés par 
le système (ON DIALOG) : 


1 - Initialisation. Prise en 
compte des paramètres et de la 
taille de la fenêtre. Cet appel 
est nécessaire chaque fois que 
les paramètres ou que la taille 
de la fenêtre à gérer sont 
modifiés. 

2 - Rafraîchissement de la 
fenêtre. 

3 - Défilement de la fenêtre 
sur événement souris. 


Paramètres 
d'initialisation 
(pour argument = 1) 


GFlim : numéro de la dernière 
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ligne affichable. (La numéro- 
tation des lignes commence à 
0). Une valeur négative 
indique qu'il ny a rien à 
afficher. 

GFtfont : police de caractères. 
Chicago par défaut. 

GFtsiz : taille des caractères. 12 
par défaut. 

GFtface : style des caractères. 
Standard par défaut. 

GFtitre$ : Titre. Pas de titre par 
défaut. 

GFpas : nombre de lignes (20) 
en recouvrement lors de 
l'affichage d'écrans successifs. 
Généralement O ou 1. O par 
défaut. 

GFxl, GFy1, GFx2, 

GFy2 : coordonnées (coin 
supérieur gauche, coin 
inférieur droit) de la 
sous-fenêtre gérée par GF. Les 
informations affichées à 
l'extérieur de cette sous-fenêtre 
ne sont pas affectées par le 
défilement. 
Les valeurs incorrectes 
sont automatiquement rame- 
nées aux valeurs par défaut, 
soit : 0, 18, largeur de la 
fenêtre-16, hauteur de Ja 
fenêtre. 


Variable disponible après 
chaque appel à GF sur 
événement souris 
(argument = 3) 


GFmouse : 0 si l'événement a 
été pris en compte par GF, -1 
si l'événement ne concerne pas 
GF et peut être traité par le 
programme appelant. 


Sous-programme utilisateur 
appelé par GF : 
Afficher(x,y) 


L'appel de ce sous-programme 
correspond au traitement d'une 
action sur l'ascenseur. Il pourrait 
être remplacé par un autre 
sous-programme pour, par 
exemple, faire défiler du 
graphisme. 


# 













El 


a 










































x : numéro de la première ligne à 
afficher (commence à 0). 

y : nombre de lignes à afficher (le 

curseur est positionné par GF) 


Remarques : la fenêtre à gérer 
doit être active et être la fenêtre 
courante d'affichage. Elle doit 
être ouverte avant l'appel 
d'initialisation. 


Enfin, pour que la présentation Ë 
soit plus agréable, utilisez plutôt Ë 
les types 3 ou 4. Un bouton Ë 
invisible (N° 255) est déclaré par Ë 
GF afin d'inhiber le mode 
“scrolling” automatique. 


Toutes les variables de GF sont Ë 
de type entier implicite (DEFINT 
a-2). 


Si les événements souris sont Ë 
traités de façon asynchrone (ON Ë 
MOUSE...) et non par “polling” Ë 
(IF MOUSE(0)<>0...), ilsË 
doivent être inhibés (MOUSE Ë 
STOP) pendant un rafraîchis-EË 
sement puis autorisés à nouveau Ë 
(MOUSE ON) lorsque celui-ci est Ë 
terminé. 
Ceci évite le risque d'appeler GF Ë 
sur événement souris alors qu'il Ë 
est en train d'effectuer unË 
rafraîchissement. : 


Au retour de GF 3 le programme Ë 
peut examiner la variable Ë 
GFmouse pour savoir SsiË 
l'événement a été traité par GF Ë 
(GFmouse=0) ou si l'utilisateur Ë 
n'avait pas cliqué dans la bande Ë 
de défilement (GFmouse=-1). 


Dans ce dernier cas, leË 
programme appelant peut traiter Ë 
lui-même l'événement. Les E 
DATA de GF sont lues une fois 
pour toutes lors du premier appel Ë 
d'initialisation. 
Si le programme appelant aË 
lui-même des DATA à lire, il 
devra les placer avant ou après Ë 
celles de GF selon quelles seront Ë 
lues avant ou après le premier Ë 


appel à GF(1). 
G 
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Démonstration du 
sous-programme 
‘GF 

Note : pour un Mac 128Ko0, 


placez en début de programme : 
CLEAR ,11000,1024 


DEFINT A-Z 
WINDOW 1,,(2,23)-(508,330), 
3 


" Fonctions appelées par GF 

DEF FNmin(x,y)=x<=y AND x © 
R y<x AND y 

DEF FNmax(x,y)=x>=y AND x O 
R y>x AND y 

GFLim=100 

GFtfont=3 

GFtitre$="Exemple d'utilisat 
ion" 

GFy2=WINDOW (3) -10 


GF l1:'Initialisation 

TEXTMODE 1:MENU 6,0,1,"Car 
actères":MENU 6,1,1,"Chica 
go":MENU 6,2,1,"New York": 
MENU 6,3,2,'"Geneva":MENU 
6,4,1,'"Monaco'":MENU 7,0,1, 
"Style":MENU 7,1,2,"Standa 
rd'":MENU 7,2,1,"Gras'":MEN 
07,371;  ECaliquer 

MENU 7,4,1,"Souligné":MENU 
7,5,1,"Relief":MENU 7,6,1, 
"Ombre" : MENU 7,7,0,"-":ME 
NU 7,8,1,"9 Points":MENU 
7,9,1,"10 Points'"':MENU 7,1 
0,2,"12 Points":ON MOUSE 
GOSUB EvtSou:MOUSE ON 


Attente: 

WHILE 1 

IF DIALOG(0)=5 THEN GOSUB 

MajFen 

GOSUB EvtMen 

WEND 

Ma jFen: 

MOUSE STOP:TEXTSIZE 9:TEX 
TFONT 3:TEXTFACE 0:MOVE 
TO WINDOW(2)-160,GFy2+5:P 
RINT"GF V1.8 © Bernard BA 
Z, 1986" 


GF 2: "Rafraîchissement 


MOUSE ON:RETURN 


EvtSou: 

GF 3:'Gestion souris 
IF GFmouse THEN BEEP 
RETURN 


EvtMen: 
w=MENU(0):IF w>0 THEN MENU 


| 


wW,0,1:O0N w-5 GOSUB Car,sS 
tyle 
IF aff THEN aff=0:GF 1:CLS: 
GOSUB MajFen 
RETURN 
Car: 
IF MENU(1)=-1 THEN w=0 ELSE 
w=MENU (1) 
IF w<>GFtfont THEN si=1 
WHILE si:si=0 
MENU 6,FNmax(GFtfont,1),1:M 
ENU 6,MENU(1),2:GFtfont=w 
:aff=1 
WEND : RETURN 


Style: 

IF MENU(1)>7 THEN GOSUB T 
aille:RETURN 

IF MENU(1)}=1 AND GFtface>0 
THEN si=1 

WHILE si:si=0 

FOR i=2 TO 6:MENU 7,i,1:NE 
XT:MENU 7,1,2:GFtface=0:a 
ff=1 

WEND:IF MENU(1)>1 THEN si- 
1 

WHILE si:si=0 

w=GFtface XOR 2”(MENU(1)-2) 
: MENU 7,MENU(1),1-(w>GFtf 
ace) :GFtface=w:1F GFtface= 
O0 THEN MENU 7,1,2 ELSE M 
ENU 7,1,1 

aff=1 

WEND : RETURN 

Taille: 

IF MENU(1)<10 THEN w=MENU ( 
1)+1 ELSE w=12 

IF w<> GFtsiz THEN si=1 

WHILE si: si=0:FOR i=8 TO 1 
0:MENU 7,i,1:NEXT:MENU 7 
/MENU(1),2:GFtsiz=w:aff=1: 
WEND : RETURN 

SUB Afficher(li,nli}) STATIC 

FOR i=0 TO nli-1:PRINT'"Lign 
e";li+i:NEXT 

END SUB 

"GF V1.8 © Bernard BAZ, 

SUB GF(w) STATIC 

ON w GOSUB GFinit,GFmaj,GFs 
ou 

EXIT SUB 

GFinit: 

WHILE NOT init:init=-1 

SHARED GFlim,GFtfont,GFtsiz 
-GFtface,GFtitre$,GFpas,GF 
X1,GFx2,GFy1,GFy2,GFmouse 

DIM fls(18),f1i(18),flsn(18) 
/flin(18),bde(4),asr(4),gr 
is(4),lin(4) 

FOR i=1 TO 18:READ fls(i):N 
EXT 

fl1i(1)=16:f1i(2)=16:FOR i=3 
TO 18:f1li(i)=fls(21-i):NE 
XT 

FOR i=1 TO 14:READ flsn(i): 
NEXT 


1986 





flin(1)}=16:flin(2)=16:FOR i= 
3 TO 18:flin(i)=flsn(21-i) 
:NEXT 

FOR i=1 TO 4:gris(i)=&h1144 
:lin(i)=255:NEXT 

BUTEON"255,0,;7%/-[0;0)=\0;0) 

WEND 

lfen=WINDOW (2) :hfen=WINDOW 
(3) 

xXfl=lfen-15:yfli=hfen-1s 

bde (1)=33:bde(2)=lfen-14:bde 
(3)=hfen-15:bde(4)=lfen 

asr(1)=33:asr(2)=lfen-14:asr 
(3)=49:asr(4)=lfen 

TEXTFONT O:TEXTSIZE 12 

tit$=GFtitres 

WHILE WIDTH(tit$)>lfen-13:t 
it$=LEFTS (tit$,LEN(tit$)- 
1) :WEND 

xtit=(lfen-1-WIDTH(tit$))/2 
:tsiz=GFtsiz OR 12 AND GF 
tsiz=0:lim=GFlim:l1li1=0 

TEXTFONT GFtfont:TEXTSIZE 
tsiz:TEXTFACE GFtface:LO 
CATE 1,1:xli=WINDOW(4) :y1l 
i=WINDOW (5) :LOCATE 2,1:h 
li=WINDOW(5)-yli 

IF GFx1l<0 OR GFx1>=lfen-16 
THEN GFx1=0 

IF GFx2<=GFx1l OR GFx2>lfen-1l 
6 THEN GFx2=lfen-16 

IF GFy1<18 OR GFyl>hfen-hli 
THEN GFyl=18 

IF GFy2<GFyl+hli OR GFy2>hfe 
n-1 THEN GFy2=hfen-1 

xli=GFxl+xli:yli=GFyl+yli:li 
pg=FNmax (1, (GFy2-GFy1+1)\h 
li) :pas=FNmin (FNmax (0, GFpa 
s),lipg-1):1i1m=FNmax(O,li 
m-lipg+1):x1lrol=GFxl:x2rol 
=GFx2:ylrol=GFyl:y2rol=ylr 
ol+hli*lipg-1:RETURN 

GFma j: 

TEXTFONT 0O:TEXTSIZE 12:TE 
XTFACE O:PENPAT VARPTR( 
lin(1)):PENSIZE 1,12:MOV 
ETO 1,2:LINETO xtit-6,2:M 
OVE 7,11:PRINT tit$;:MOV 
E 6,-11: LINETO lfen-2,2: 
PENNORMAL 

LINE (0,17)-(1fen,17):LINE(x 
Pl Le (El /hfen):-PUTL(xETL 
17) ,£1s(L) ,RSET:EUT (xf£1l; 
yfli),fli(1l),PSET:IF lim> 
=lipg THEN si=1 

WHILE si:si=0:FILLRECT VA 
RPTR(bde (1)),VARPTR(gris( 
1)):ERASERECT VARPTR(asr 
(1)):FRAMERECT VARPTR(as 
r(1)):WEND 

TEXTFONT GFtfont:TEXTSIZE 
tsiz:TEXTFACE GFtface:MO 
VETO xli,yli:IF lim>=0 TH 
EN Afficher l1i1,FNmin(lim, 
lipg-1})+1 

RETURN 
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GFsou: 
w=MOUSE (0) :si=MOUSE(3)>=xf1l 
AND MOUSE (4)>=17:GFmouse 

=NOT si 

WHILE si AND lim>=lipg:si=0 

zon=1- (MOUSE (4) >32)-(MOUSE( 
4)>=asr(1))-(MOUSE (4) >=as 
r(3))-(MOUSE (4)>=yfli) 

ON zon GOSUB Zonl,Zon2,Zon3 
,Zon4,Zons5 

WEND 

RETURN 

Zonl1 : 

PUT (xfl,17),flsn(l):act=1 

WHILE act:1lF li1>0 THEN li 
1=1i1-1:GOSUB aff 

act=MOUSE(0)<0O AND MOUSE(6 
) <=32 

WEND 

PUT(xf1,17),flsn(1) : RETURN 

Zon2: 

mou=MOUSE (4) :act=1 

WHILE act:IlF l1i1>0 THEN li 
1=FNmax (1i1-lipg+pas, 0) :GO 
SUB aff 

act=MOUSE(0)<O AND MOUSE (4 
)=mou AND MOUSE (6)<asr(l) 

WEND : RETURN 

Zon3: 

PENPAT VARETR(gris(1)):PEN 
MODE 14:FRAMERECT VAREPET 
R(asr(l)):yl=asr(l):act=1: 
si=1 

WHILE MOUSE (0)<0 OR si:si= 
0 

y2=FNmax (FNmin (y1+MOUSE (6) - 
MOUSE (4) ,hfen-31}), 33) 

IF y2<>asr(1) AND act THEN 
si=1l ELSE asr(l)=y2: asr(3 


)=y2+16 

WHILE si:si=0:FRAMERECT VA 
RPTR(asr(l)):asr(l)=y2: as 
r(3)=y2+16:FRAMERECT VAR 
PTR(asr(l)) 

WEND 

IF ABS(lfen-8-MOUSE(5))>30 

AND act THEN act=0:FRAM 
ERECT VARETR(asr(l)) 

IF ABS(lfen-8-MOUSE (5) ) <=3 
O0 AND act=0 THEN act=1:FR 
AMERECT VARPETR(asr(l1)) 

WEND 

lilw=(y2-33) *lilm/ (hfen-64) : 
IF act THEN si=1 ELSE asr 
(1)=yl:asr(3)=y1+16 

WHILE si:si=0:w=y1<>y2 AND 
lilw<>l1li1 OR y1=33 AND li 
1>0 OR yl=hfen-31 AND lil 
<lilm:IF w THEN lil=lilw: 
PENNORMAL:GOSUB aff ELS 
E FRAMERECT VARETR(asr( 
1)) 

WEND : PENNORMAL : RETURN 

Zon4: 

mou=MOUSE (4) :act=1 

WHILE act:1lF lil<lilm THEN 

lil=FNmin (lil+lipg-pas, li 
1m) : GOSUB aff 

act=MOUSE(0)<0 AND MOUSE (4 
)=mou AND MOUSE (6)>=asr (3 
} 

WEND : RETURN 

Zons: 

BUT (XEL VE) ClINn(l)-act=1 

WHILE act:IlF lil<lilm THEN 

lil=li1+1:GOSUB aff 
act=MOUSE(0)<O AND MOUSE(6 
)>=yfli 


[3 
el 


2) 


WEND 

PUT(xfl,yfli),flin(1):RETUR 
N 

aff: 

asr(l)=(hfen-64)*1i1/1i1m+33 
:asr(3)=asr(1)+16:FILLREC 
T VARPTR(bde(1})}),VARPETR( 
gris(1)):ERASERECT VARET 
R(asr(1l)):FRAMERECT VARP 
TR(asr(1l)):ON zon GOSUB A 
ff1,Aff2,Aff2,Aff2,Aff5:RE 
TURN 

Aff1: 

SCROLL(xlrol,ylrol)-(x2rol, 
y2rol),0,hli:MOVETO xli,y 
li:Afficher 1lil,1:RETURN 

Aff2: 

LINE (xlrol,ylrol)-(x2rol,y2r 
01),30,bf:MOVETO xli,yli: 
Afficher l1il,lipg:RETURN 

Aff5: 

SCROLL (xirol,ylrol)-(x2rol, 
y2rol),0,-h1li:MOVETO xli, 
yli+hli*(lipg-1): Afficher 

lil+lipg-1,1:RETURN 

DATA 16,16,-1,8&h8001,&h8101, 
&h8281,&h8441,&h8821,&h901 
1,&hA009,&hF83D,&h8821,&h8 
821,&h8821,&h8FE1,&h8001,& 
h8001,-1,16,16,0,0,0,8&h100 
,&h380,&h7C0,&hFE0,&h1FF0, 
&h7C0, &h7C0, &h7C0, &h7C0 

END SUB 


———————————————ZZEZEZ 


Compatible incompatible ? 


Suite. 
(première partie dans le numéro 24) 
Particularismes 


Nous ne pouvons, faute de place, citer les 
particularismes de tous les logiciels sur le 
MacPlus, en dehors de leur appartenance 
aux cinq catégories décrites dans le numéro 
24. C’est pourquoi nous citons seulement 
dans la liste ci-dessous les particularismes 
des logiciels les plus connus. Pour les 
logiciels listés dans Pom’s 24, quand un 
numéro de version est indiqué, cela signifie 
en général que les versions antérieures 
posent encore plus de problèmes, ou ne 
marchent pas du tout, avec le MacPlus. 
Basic 2.0 : selon Apple, il appartient à la 
catégorie 1 ; selon nous, à la catégorie 3, le 
Basic et les fichiers devant être au niveau 0 
de la hiérarchie. 

Jazz : ne pas metre à jour la disquette 
originale ; constituer une nouvelle disquette 
de démarrage en 800Ko avec le système 
MacPlus ; y transférer les fichiers Convert, 
Jazz Ressources, Jazz System Update de la 
disquette de démarrage originale : le fichier 
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Jazz Ressources doit être dans le dossier 
système. 

MacDraft : reconnait en partie le HFS, 
mais ne sait pas sauvegarder un document 
dans un dossier (le met au niveau 0). On 
peut utiliser une disquette 800Ko à condi- 
tion de la formater en MES. 

MacTerminal 1.0 : mise à jour de la dis- 
quette possible, à condition de garder l’an- 
cien clavier. La version 2.0 devrait être dis- 
ponible en mai 86. 

MacTracks : les fichiers auxiliaires doivent 
être dans le dossier système. 

Microsoft File : problèmes de dossiers avec 
les index. Il est donc préférable de travailler 
au niveau 0 de la hiérarchie. 

Muitiplan : la version 1.10, sortie récem- 
ment et échangeable pour 250 F auprès de 
Microsoft, est compatible tous Macs, résout 
le problème de la version 1.02 avec le 
MacPlus (limite à 7K !) et ajoute les 
fonctions financières. 

Omnis3 : légers problèmes avec le HFS ; 
les fichier auxiliaires doivent être dans le 
dossier système (Omnis3 Info). 
Orthogiciel : nouvelle version attendue en 
juin 86. 


Overvue 2.0 : selon Apple, appartient à la 
catégorie 1. En fait, ne tourne qu’avec son 
ancien système. 

PageMaker 1.1 : légers problèmes avec le 
HES. Les fichiers doivent être dans le 
même dossier que l'application. En cas 
d'utilisation avec la Laser Writer, 
l'imprimante doit absolument être baptisé 
“LaserWriter”. 

SmoothTalker 2.0 : aucun problème selon 
Apple (catégorie 1). Selon nous, plante 
complètement la machine. 


Switcher 4.4 : les applications d’une liasse 
doivent être à la racine. Refuse le Finder. 
Conflits avec le cache-mémoire, qui doit 
donc être désactivé. Version 4.9 entière- 
ment compatible attendue. 
ThinKTank : problèmes avec le cache- 
mémoire. L’impression peut poser des 
problèmes aléatoires non résolus. 
Word 102 : ne reconnait pas le pavé 
numérique, mais accepte les chiffres du 
clavier principal Nouvelle version inces- 
samment. Le glossaire doit être dans le dos- 
sier de l'application. 

Hervé Thiriez 
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Des essais rapides 


Lors de la mise au point d'un 
programme en assembleur, le passage 
par le ‘Finder’, au retour, fait perdre du 
temps. Pour éviter cette étape, on peut 
insérer ce petit segment de code à la 
place du classique RTS de fin de 
programme : 


LEA Param, AO 
LEA Program,Al 
MOVE .L Al, (AO) 
_Launch ; $A9F2 
Param DC.L 0 
DC 0 
Program DC.B 4,'Edit',0 


Ceci provoque le lancement de l'éditeur. 


Un caractère retrouvé 


Si vous êtes passé du Mac au MacPlus, 
vous avez certainement perdu le 
caractère “É”, que l'on obtenait avec la 
séquence de touche : 

Option ‘ E 

Sur le Mac Plus, il faut faire : 

Option 1 E 


Qui a retrouvé la puce “+” ? 


N.D.L.R. : le ‘Mega-truc’ en la 
matière, c'est l'accessoire “ad litteram” 
publié dans ce numéro (dommage pour 
l'accessoire “clavier”, qui a quasiment 
disparu des disquettes de tous ceux qui 


2 


ont essayé “ad litteram”). 


Clavier, clavier Plus ? 


Si vous écrivez une application qui doit 
pouvoir fonctionner indifféremment sur 
un Mac ou sur un Mac Plus, il peut 
être intéressant de savoir à quel type de 
clavier on a affaire. Pour cela, on peut 
lire le contenu de l'adresse S21E, qui est 
égal à 11 en cas de présence d'un clavier 
"Mac Plus". En Basic : 


IF PEEK(£&h21E)=11 THEN 
MacPlus ELSE Mac 
En assembleur : 


CMPI.B 
BEQ 


#11,$21E 
MacPlus 
Mac 


Le collage dans Excel 


Nous avons déjà constaté plusieurs 
bugs dans Excel; aucun d'entre eux n'est 
grave, mais ils sont quelque peu 
énervants. Un des plus originaux touche 
le Collage Spécial, qui — très 
intelligemment — permet de copier 
seulement les valeurs, les formules ou 
les formats mais, moins 
intelligemment, ne fait pas la 
distinction entre les formats et les 
encadrements. 


Le bug est le suivant. Quand on copie 
le vecteur : 


[25 [25 [25 [25] 


pour effectuer un collage spécial des 
valeurs seules et avec soustraction vers 
le vecteur : 


RUN fe TS 


on obtient le résultat : 


En RE CS 


où la troisième valeur est erronée, car la 
cellule récipiendaire était vide. 

Le seul remède que nous pouvons vous 
conseiller est de mettre des 0 au lieu de 
blancs dans les cellules appelées à 
recevoir des informations par collage 
spécial associé à une opération. 


Avez-vous la 


Au sommaire 


en Basic, Système 


Francophonisme… Suite. 


dis 
: uFinder, Ad 
version 





Touches spéciales 
Mac Plus 


Le Mac Plus est arrivé avec quelques 
touches en Plus par rapport au 
Macintosh (sans parler des touches 
‘doublées' du pavé numérique). On 
notera que les touches communes aux 
deux appareils ont fort heureusement 
gardé les mêmes codes ASCII. Voici 
ces codes : 


" Na 


Mac/Mac Plus 


ja 


ROM 64Ko ou 128Ko ? 


Le Macintosh Plus ne sera bientôt plus 
seul à disposer d'une ROM de 128Ko. 
En effet, le Macintosh 512/800 arrive. 
avec 128K0 de ROM. Les programmes 
qui aiment savoir où ils sont peuvent 
tester le contenu du mot de 16 bits situé 
à l'adresse $S28E, qui est égal à $7FFF 
(32767) si l'on est en présence d'une 
ROM de 128K0o. 


Exemple : 


IF PEEK(&h28E) *256+ 
PEEK(£&h28F)=32767 THEN 
ROM128 ELSE ROM64 


\'ETA 
les ascenseurs 
Finder 5.3 


uette 


litteram, 
3.2c et 





Suite à la question métaphysique posée dans le numéro 24 — rappelons qu'il s'agissait de trouver un exemple de texte 
français comportant tout l'alphabet en une phrase aussi courte que possible -, Georges Boyer, un lecteur d'Annecy nous 
propose : “Portez ce bol de vieux whisky aux juges qui fument” 

Il nous suggère de le traduire pour les américains par “Bring this cup of old whisky...” ! Les habitués des connexions 
Transpac connaissent certainement le : “Voyez le brick géant que j'examine près du wharf”. 
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LFINDER << 


© 


Gagner 56 Ko ? : 





Jean-Luc Bazanegue 


Le Finder du Macintosh est une application 
sophistiquée qui autorise une gestion complète des 
fichiers placés sur nos disquettes. A l'usage, on 
s'aperçoit que la plupart des fonctions sont rarement 
utilisées lorsqu'on emploie, par exemple, des 
utilitaires (PaintMover, REdit…. ). De plus, le passage 
par le Finder prend du temps et, dans le cas de 
programme réclamant beaucoup de place sur la 
disquette (comme MacPaint), il peut être intéressant 
de récupérer la place qu'il occupe. 






—= Disquette avec Finder === 
5 éléments 347K dans disque 44K disponibles 


IMAGEWRITER SYSTEM FINDER 
Disquette avec Finder 
5 éléments 291K dans disque 100K disponible 


IMAGEWRITER SYSTEM Finder 


S & 































Nous vous proposons donc un “micro-Finder”, qui 
ne conserve que les fonctions essentielles de son 
grand frère (sélection d'une application et 
éjection/redémarrage). On utilise pour cela la fenêtre 
de sélection du système (dont l'aspect peut varier d'un 
système à l'autre), ce qui nous permet de gagner 
56Ko sur chaque disquette et, du même coup, 
beaucoup de temps lors du passage d'une application 












à l'autre. MacWrite MacPaint 
rhi 08000010 08100810 
Fichier , 082FF410 08000010 ioVQEISize EQU $40 TST Reponse+rGood{A5} 
Fin der.Job 08000010  07FFFFEO ; Initialisations : À BNES  @t 
PEA -4 ; Si 7? À 
Asm nFinderAam Exec Edit 94000020  OFFFFEO InitGraf e ; dites so éectées FE on 
Link uFinder.Link Exec Edit 00000000 00000000 [in itFonts : redémarre le système 
RMaker  uFinder.R Finder Edit 00000000 00000000 MOVE.L  #$0000FFFF,DO MOVE  #-1,ioVDrvNum(AO) 
_FlushEvents _Eject 
Fichier 00000000 00000000 InitWindows MOVE  #-2,ioVDryNum(AO) 
Ars AS à 00000000 00000000 iilente Eject 
uFinder.Link 00000000 _ 20000000 GAL  4sP) de on 
00000000 00000000 _InitDialogs : Indique le volume où se trouve 
pe ps 00000000 07FFFFEO _TElnit : l'apphcation sélectionnée comme 
1Output uFinder.Code OFFFFFFO OFFFFFFO _InitCursor ; étant le volume par défaut 
Type TEMP' OFFFFFFO  OFFFFFFO ; Affichage de la fenêtre de sélection @1 MOVE Reponse+1Volume(A5), 
$ OFFFFFFO  OFFFFFFO ; Standard ioVDrvNum(AO) 
OFFFFFFO  OFFFFFFO MOVE  #80,-(SP) _SetVol 
—— OFFFFFFO  OFFFFFFO MOVE  (SP)-(SP) : Pour indiquer à l'application 
Fi Re R OFFFFFFO  OFFFFFFO chris : sélectionnée qu'il n'y a rien à ouvrir ou 
in der. OFFFFFFO_ OFFFFFFO : s ; imprimer (voir pom's 24) 
Le OFFFFFFO  07FFFFEO DES tt MOVEQL #4,00 
uFinder o7FFFFEO 07FFFFEO ph ee MOVE.L  AppParmHandile,AO 
APPLuFND INCLUDE yFinder.Code CLRAL SP) _SetHandleSize 
Type uFND = STR F PEA reponse(A5) MOVE.L  AppParmHandie, AO 
CT NOMME MOVE #SFGetFile,-(SP) MOVE.L (A0),A0 
uFinder - Pom's - Juin 86 ; our ce ï FE he. CLRL (AO) 
,» orme mont e r k K 
jt à H F In der.A sm MOVE #watchCursor,-(SP) ‘ RO D 
uFND 0 ; Routines utilisées: _GetCursor PEA reponse+rName(A5) 
be .Trap _Eject $AO17 MOVEAL (SP)+,A2 MOVEL  SP.A0 
# Trap _FlushEvents  $A032 MOVE.L (A2),-(SP) Launch 
RES .Trap _GetCursor $A9B9 _SetCursor Ta = Doubs | 
502 .Trap _InitCursor $A850 : Prépare le tampon DS DCB  ‘APPL: 
.Trap _InitDialogs $A97B ; d'entrées/sorties 10 DCB _ ioVOEISIz6.0 
Type FREF .Trap zinitFonts SABFE LEA 1O,A0 STORE 2 [es 
,128(32) .Trap _InitGraf $A86E CLRL ioNamePtr(AO) eo à 
APPL 0 .Trap _InitMenus $A930 
Type ICN# = GNRL .Trap _InitWindows $A912 = 
,128(32 .Trap _Launch $A9F2 9? 
(32) dE Comment faire ? 
00000000 00000000 Rp NACRE Aro vous avez la disquette Mac25: 
00000000 00000000 de PRES $A024 *_ démarrez le système avec la disquette Mac 25 ; 
00000000 00000000 ie << To °° insérez la disquette sur laquelle vous désirez placer le Finder ; 
00000000 00000000 He + supprimez le vrai Finder ; 
00000000 00000000 pan + faites une copie du Finder sur la disquette destination ; 
00000000 00000000 is pee à mt : | 
Volume EQU 6 * supprimez le 1” de Finder. | 
00000000  07FFFFEO N EQU 736 : ; | 
08000010  O8FFFF10 Se Eire vous n’avez pas la disquette Mac25: | 
09000090 09024090 joNamePtr EQU $12 * munissez-vous de votre système de développement 68000 ; 
091E7890 09366C90 joVDrvNum EQU  $16 ° saisissez les fichiers et le source listés ci-contre ; 
095E7A90 090C3090 AppParmHande EQU  $AEC * lancer l'EXECution du fichier ‘uFinder Job” ; 
09000090  O8FFFF10 watchCursor  EQU 4 *_ faites alors comme si vous aviez la disquette 25. 
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Tai, Chaînes, nmdex 


eaucoup de programmes 

Basic nécessitent des 

opérations de tri sur les 

éléments d'un tableau. 
Le plus souvent, il s'agit de 
tableaux de chaînes de caractères. 
Un tableau à deux indices peut 
mémoriser les adresses de clients, 
le premier indice repère la 
position de l'adresse du client 
dans le tableau, le deuxième 
permet d'accéder aux différentes 
rubriques de son adresse. Si le tri 
sur la rubrique ‘nom’ est 
effectué, il va de soi que les 
autres rubriques associées à un 
nom doivent suivre les 
déplacements imposés par la 
technique de tri choisie. Cette 
méthode implique une perte de 
temps importante du fait que tous 
les éléments du tableau participent 
à l'opération de tri. Pour éviter ce 
grand “chambardement", on 
décide de ne plus modifier le 
tableau. L'ordre des éléments du 
tableau de chaînes est enregistré 
dans une tableau de nombres, 
appelé table d'index. L'accès à la 
liste triée se fait alors via cette 
table d'index. Considérons un tri 
sur le nom des pays du tableau 
PAYS. 


Tableau PAYS 


P% après tri 


D 


Italie Rome 
Pays-Bas 
Belgique 
France 


Ls Haye 
Bruxelles 
Paris 
Danemark Copenhague 
Luxembourg Luxembourg 
Allemagne Bonn 
Grande-Bretagne Londres 
Athènes 


ee 
ND De © 0 © R A à J © 


Sema ubs © 
pAgUrgrver 


Il suffit alors de lire la table 
d'index P% pour obtenir la liste 
des pays classés par ordre 
alphabétique : 

FOR I=1 TON 

J = P#{I) 

PRINT PAYS$(J,0); TAB( 20); 
PAY$(J,1); TAB( 34);PAY$ (J,2) 
NEXT I 


Tri par insertion 


Cette technique de tri peut se 
comparer avec l'insertion des 
cartes lors d'une donne. Dès la 
deuxième carte, le joueur insère la 
carte donnée en la comparant à la 
(aux) précédente(s). Tant que la 
carte donnée est inférieure à la 
carte comparée, les cartes sont 
décalées vers la droite et la 
comparaison se poursuit vers la 
gauche. Dès que la carte donnée 
est supérieure ou égale à la carte 
comparée, la carte donnée est 
insérée à droite de la carte 
comparée. Le programme 
TRI.CHAINE.DEMO illustre ce 
type de tri. 

Le tri par insertion est assez 
performant (au niveau de la 
rapidité) compte tenu du peu 
d'instructions qu'il requiert. 
Notons cependant que l'élément 
d'indice 0 doit contenir la plus 
petite valeur pour le type de 
variable triée. Ainsi, pour des 
chaînes de caractères, la chaîne 
vide est cette valeur qui est placée 
automatiquement lors du 
dimensionnement du tableau. 
Pour un tableau de nombres 
positifs, O est une valeur 
inférieure ou égale à tout nombre 
positif. Par contre, pour un 
tableau de nombres positifs, nuls 
ou négatifs, il est obligatoire 
d'assigner respectivement -32767 
ou -10E38 à l'élément O du 
tableau d'entiers ou du tableau de 
réels. L'élément O du tableau ne 
peut pas être utilisé pour inscrire 
des informations à trier. 


Le tri du tableau PAYS peut 
s'écrire en Basic (voir le 
programme TRI CHAINE 
BASIC.1.1) comme ceci: —> 


Tri en langage 
machine 


Au niveau de la structure, le 
programme TRI.CHAINE.C est 
l'équivalent du programme 
précédent mais il est écrit en 





Bernard 
Lambillon 


codes 6502. II occupe 215 octets 
de mémoire. Il est bien sûr plus 
rapide : une liste de 500 noms de 
24 caractères est triée en 10 
secondes (cf. TRI.CHAINE.1.2) 
au lieu de 35 minutes en Basic ! 


La syntaxe est la suivante : 
&N,PAY$(1,CLE),P%(1) où N 
contient le nombre d'éléments à 
trier et CLE vaut 0,1 ou 2 selon 
que le tri s'effectue sur le nom, la 
capitale ou l'abréviation du pays. 
Voici d'autres exemples : 

& 500,a$(1),IX%(1) 

& t(0),ad$(1,3),h%(1,3) 

Le chargement du programme 
s'effectue automatiquement à 
l'aide des programmes TRI.DOS. 
INIT.C ou TRI.PRO.INIT.C 
suivant que le système est géré 
sous DOS 3.3 ou ProDOS. Dans 
la version DOS, le chargement 
doit s'effectuer avant toute 
création de chaînes de caractères 
car le programme se loge sous le 
HIMEM. Par contre, en ProDOS, 
le programme TRI.CHAINE.C 
est chargé entre le Basic.System 
et sa mémoire tampon d'usage 
général sans altérer les zones 
réservées au Basic. 


Le programme source, écrit avec 
l'assembleur ProCODE, est 
documenté de telle sorte que le 
lecteur puisse faire le parallèle 
entre le programme de tri en 


900 PS(1)=1 Init table index 


1000 FOR I = 2 TON 


1010 X$ = PAYS(I,CLE) : 
PS(I) = 1 


Boucle int 
1020 FOR J =_ 1 TO O STEP -1 EU en 


Entier él. comparé 


1030 JJ = P4(J) 


1040 ON 2 - (X$ > PAYS 
(JJ,CLE)) GOSUB 200 
0,3000 


Si.. ALORS insertion SINON décalage 


1050 NEXT J 











2000 REM Insertion| | 3000 REM décalages 
2020 PS(J+1) = I 3020 P$(J+1) = JJ 
2030 J = 0 3030 RETURN 


2040 RETURN 
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Basic et celui-ci. Il suffit de se 
rappeler que chaque élément d'un 
tableau de chaînes occupe 3 octets 


et 


que chaque nombre d'un 


tableau d'entiers en nécessite 2. 


longueur adresse adresse 
de la basse de | hautede 
chaîne stockage | stockage 





Voici la situation avant le tri 
(programme TRI.CHAINE.1.0) : 


Page zéro 


6: CE 14 
8: D1 14 
83: 3A 15 
50: 0A 00 


Pointeur él 0 de PAY$ (14CE) 
Pointeur él 1 de PAYS (14D1) 
Pointeur él 1 de P$# (153A) 

Nb d'éléments à trier (000A) 





Tableau PAYS 


14CE: 00 00 
14D1: 06 01 
14D4: 0B 18 


14EC: 07 28 
14DA: 
14EC: 07 28 13 él10. Irlande 





Longueur-Pointeur 


00 é10 Vide 

12 él1 Italie 
12 é12 Pays-Bas 
13 613 Belgique 





Tableau P% 


00 00 
00 01 
00 00 


élément 0: Valeur 0 
élément 1: Valeur 1 
élément 2: Valeur 0 


1538: 
1532: 
153D: 
1540: 
154C: élément 10: 


00 00 Valeur 0 


Zone chaînes de caractères (dans les 
DATAs du programme) 


1201: 49 74 61 6C 69 65 22 2C 22 … 
I SUR SUN 


PA ASIE 
1218: 


50 61 79 73 2D 42 61 73 22 2C 22. 
à AT PU AE DONNE : DST TON OUR ET ET 


42 65 6C 67 69 71 75 65. 


1238: 
ter LT TUE" © 
46 72 61 6E 63 65. 
+, en 0e 


49 72 6C 61 6E 64 65. 
ENREL RER dre 


125C: 


1328: 





Programme 
‘TRI.CHAINE.MENU’ 


10 


REM *** TRI,CHAINE.MENU *** 


20 : 


30 


GOSUB 70: REM INITIALISATION 
IF R > O THEN GOSUB 720 
HOME : END 


60 : 


REM /// INITIALISATION /// 


80 : 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 


330 
340 


350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 


PRINT CHR$ (21) 


REM 


DIM M$(5) 
FOR I = 0 TOS5 
READ M$(I) 
NEXT I 

DIM L$(8) 
FORI=1TO8 
READ LS$(I) 
NEXT I 


—— LECTURE DATA -- 


REM 
DIM RUS (1) 

READ RU$(0),RUS (1) 
PRO = PEEK (48896) 


-- DOS/PRODOS -- 


76 


REM -- CONSTANTES -- 


D$ = 
BR$ = 
L$ =" 


CHR$ (4) 
CHR$ (7) 


Li = 20 - LEN (M$(0)) / 2 
DIM OSINTE (ETAT 


TITRE 


TEXT : HOME 
INVERSE 
PRINT SPC( L1);MS$(0); 


REM 


SPC( L2) 


——- BAS ECRAN -- 


VTAB 24: PRINT SPC( 39) 
POKE 2039, 32 

VTAB 24: HTAB 5: PRINT M$(1); 
H = 5 + LEN (M$(1)) 

NORMAL 


500 
510 

520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 


670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 


850 
860 
870 
880 
890 
900 
910 
920 
930 
940 


950 
360 
970 
380 


REM -- MENU -- 

VTAB 2: HTAB 1: PRINT L$; 
FOR I = 1 TO 4 

PRINT 

HTAB 8 

PRINT "<";I;"> ":MS(1 + I) 


HTAB 12: PRINT L$(2 * I - 1) 
HTAB 12: PRINT L$(2 * I) 
PRINT L$; 

NEXT I 


REM 


—— CHOIX -—- 


VTAB 24: HTAB H 
GET R$:R = VAL (R$) 
IFR> = 1 ANR< 
CHR$ (27) THEN 700 
PRINT BR$; 
GET R$:R = 
GOTO 660 
RETURN : 


= 4 OR R$ = 


VAL (R$) 


REM <INITIALISATION> 


REM /// PROGRAMME /// 


VTAB 5 * R - l: HTAB 12 
INVERSE 

PRINT M$(1 + R) 

NORMAL 


PRINT D$;RUS (PRO) ;M$(1 + R) 
RETURN : REM <PROGRAMME> 


REM ### DONNEES FIXES ### 


DATA "TRI DE TABLEAU DE CHAINES" 
DATA "VOTRE CHOIX (1-4 OU ESC): 
DATA "TRI.CHAINE.1.0" 

DATA "TRI.CHAINE.1.1" 

DATA "TRI.CHAINE.1.2" 

DATA "TRI.CHAINE.DEMO"” 

DATA "tri d'un tableau 10X3" 
DATA "en langage-machine" 

DATA "tri d'un tableau 10X3" 
DATA “en Basic." 

DATA "tri de 500 noms de 24 car." 
DATA "en langage-machine (10 sec. 
)" 

DATA "Animation de la technique” 
DATA "de tri par insertion" 

DATA "RUN" 

DATA "RUN BASIC/" 


Programme 
‘TRI.CHAINE.1.0° 


10 REM *#** TRI.CHAINE.1.0 *** 

20 : 

30 GOSUB 150: REM /// INIT PROGRAMME 
244 

40 : 

50 REM ::: REPETER ::: 

60 : 


70 GOSUB 670: REM /// MENU /// 
80 IF NOT FINI THEN 50 


90 : 

100 REM ::: FIN REPETER ::: 

110 : 

120 IF CAS = 4 THEN 1500: REM <RETOU 
R MENU> 

130 END 

140 : 

150 REM /// INIT PROGRAMME /// 

160 : 

170 REM -- DOS OU PRODOS -- 

180 : 

190 DOS = PEEK (48896) < > 76 

200 ON 2 - DOS GOSUB 530,590 

210 : 

220 REM -- CAR. DE CONTROLE -- 

230 : 

240 B$ = CHR$ (8) 

250 BR$ = CHR$ (7) 

260 : 

270 REM -- TABLES DES PAYS -- 

280 : 

290 DIM PAYS(10,2),P#(10) 

300 : 

310 READ N 

320 FOR I=1TON 

330 FOR J = O0 TO 2 

340 READ PAY$(I,J) 

350 NEXT J 

360 NEXT I 

370 : 

380 REM -- TABLE DES MESSAGES —- 

390 : 

400 DIM M$(5) 

410 FORM=0TOS5 

420 READ MS(M) 

430 NEXT M 

440 : 

450 REM -- AFFICHAGE LISTE À TRIER 

460 : 

470 PRINT CHR$ (21): REM <CARTE 80 
COL. DESACTIVEE> 

480 TEXT : HOME 
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490 


500 
510 
520 
530 
540 
550 


560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 


740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 


920 
930 
940 
950 
9360 


970 
980 
990 


1000 


V = l: GOSUB 1330: REM 
HAGE LISTE /// 

POKE 34,12 

RETURN : REM <INIT PROGRAMME> 


REM /// INIT DOS /// 


PRINT CHR$ (4);"BRUN TRI.DOS. INI 
T.C” 

D$ = CHR$ (13) + CHRS$S (4) 
RETURN : REM <INIT DOS> 


: 


REM /// INIT PRODOS /// 


D$ = CHR$ (4) 
PRINT D$;"PREFIX CODE.MACHINE" 
PRINT D$;"BRUN TRI.PRO.INIT.C" 
PRINT D$;"PREFIX /" 
RETURN : REM <INIT PRODOS> 


/// AFFIC 


REM /// MENU /// 


REM -- AFFICHAGE MENU -- 

HOME 

FOR M = 0 TO 5 

VTAB 13 + 2 * M: HTAB 5: PRINT M$ 
(M) ; 

NEXT M 

REM -- INIT CHOIX -- 

POKE 49168,0 


PRINT B$;B$; 


REM -- CHOIX -—- 
GET R$ 
IF ASC (R$) < 32 THEN R$ = "?" 
PRINT R$;B$; 
C1 = (R$ = "P" OR R$ = "p") 
C2 = (R$ = "C" OR R$ = "c") 
C3 = (R$ = "A" OR R$ = "a”") 
C4 = (R$ = "M" OR R$ = "m”) 
CS = (R$ = "S" OR R$ = "s") 
CAS = ClirC2*2+C3" 3% C4* 
4+C5*5 


IF CAS = 0 THEN 810 


REM 
ON CAS GOSUB 990, 990, 990,1150,115 
0 

RETURN : 


—- TRAITEMENTS -- 


REM <AFFICHAGE MENU> 


REM /// TRI /// 


. 


1010 CLE = CAS - 1 


1020 


€ N,PAY$(1,CLE),P#(1) 


1030 TRIE = 1 


1040 
1050 
1060 
1070 


REM -- AFFICHAGE LISTE TRIEE -- 


HOME 


1080 V = 13: GOSUB 1330: REM /// AFFI 


CHAGE LISTE /// 


1090 : 

1100 REM -- ATTENTE TOUCHE -- 
1110 : 

1120 GOSUB 1420: REM /// TOUCHE /// 
1130 RETURN : REM <TRI> 

1140 : 

1150 REM /// FINI /// 

1160 : 

1170 FINI = 1 

1180 POKE 34,0 

1190 VTAB 23 

1200 (ON 2 - DOS GOSUB 1230,1280 
1210 RETURN : REM <FINI> 


1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 


1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 


1390 
1400 
1410 
1420 
1430 
1440 
1450 


1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 


1700 


1710 


1720 


1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 


1810 
1820 
1830 
1840 
1850 
1860 
1870 


REM /// FIN DOS /// 


HIMEM: 38400 

RETURN : REM <FIN DOS> 

REM /// FIN PRODOS /// 

CALL 48888: REM <LIBERATION DES 
ZONES ALLOUEES ($BEF8: FREEBFR) 
RETURN : REM <FIN PRODOS> 

REM /// AFFICHAGE LISTE /// 
VTAB V: HTAB 1 

FOR I =1TON 
J = P#(I) * TRIE + I * NOT TRIE 
PRINT PAY$(J,0); TAB( 20);PAY$S(J 
1); TAB( 34);PAY$(J,2) 

NEXT I 
RETURN : 


REM /// TOUCHE /// 


REM AFFICHAGE LISTE 


PRINT CHR$ (7); 

POKE 49168,0: WAIT 49152,128: PO 
KE 49168,0 

PRINT CHR$ (7); 

RETURN : 
REM /// RETOUR MENU /// 
READ M$ 

POKE 34,0 

VTAB l: PRINT 

ON 2 - DOS GOTO 1560,1570 
PRINT D$;"RUN";M$ 

PRINT D$;"RUN BASIC/";M$ 


REM <TOUCHE> 


REM ### DONNEES FIXES ### 


DATA 10 
—- NOM DES PAYS -- 


“Italie”, "Rome", "I" 
“Pays-Bas","La Haye”, "NL" 
"Belgique", "Bruxelles","B" 
"France", "Paris"”,"F" 
“Danemark”, "Copenhague", “DK 


“Luxembourg”, "Luxembourg", " 
“Allemagne fédérale", "Bonn" 
"Grande Bretagne”, "Londres" 


“Grèce”, "Athènes", "G" 
"Irlande", "Dublin", "IRL" 


—— MESSAGES -- 
DATA 
DATA 
DATA 
n.” 
DATA 
DATA 
DATA 


NTFS PSE... 
PAFL DEL... 
FT DAT 0e 


<P>ays." 
<C>apitale." 
<A>bréviatio 


"Retour au ... <Menu." 
"ossonssssss...<S>ortie.” 
“Votre choix: <?>" 


—— MENU — 


"TRI. CHAINE.MENU" 





Programme 
‘TRI.CHAINE.1.1’ 


10 
20 : 
30 


REM *## FRI-CHAINE- 1.1 *** 


GOSUB 150: REM /// INIT PROGRAMME 
LA 


GOSUB 490: REM /// MENU /// 
IF NOT FINI THEN 50 


REM ::: FIN REPETER ::: 

IF CAS = 4 THEN 1580: REM <RETOU 
R MENU> 

END 

REM /// INIT PROGRAMME /// 

REM -- CAR. DE CONTROLE -- 
D$ = CHR$ (4) 
B$ = CHR$ (8) 
BR$ = CHRS$S (7) 

REM -- TABLES DES PAYS -- 


DIM PAY$(10,2),P#(10) 


READ N 
FOR I =1TON 
FOR J = 0 TO 2 
READ PAYS(I,J) 
NEXT J 
NEXT I 


REM -- TABLE DES MESSAGES -- 


. 


DIM M$S(5) 
FORM=0TOS 
READ M$ (M) 
NEXT M 


REM -- AFFICHAGE LISTE À TRIER 


PRINT CHR$ (21): REM <CARTE 80 
COL. DESACTIVEE> 


TEXT : HOME 

V = l: GOSUB 1410: REM /// AFFIC 
HAGE LISTE /// 

POKE 34,12 

RETURN : REM <INIT PROGRAMME> 


REM /// MENU /// 


REM -- AFFICHAGE MENU -- 
HOME 

FOR M=0TOS 

VTAB 13 + 2 * M: HTAB 5: PRINT M$ 
(M); 

NEXT M 

REM -- INIT CHOIX -- 


POKE 49168,0 
PRINT B$;B$; 


REM -- CHOIX -—- 


GET R$ 
IF ASC (R$) < 32 THEN R$ = "?" 
PRINT R$;B$; 


C1 = (R$ = "P" OR R$ = "p") 
C2 = (R$ = "C" OR R$ = "c") 
C3 = (R$ = "A" OR R$ = "a") 
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710 C4 = (R$ = "M" OR R$ = "m") 

720 C5 = (R$ = "S" OR R$ = "s") 

730 CAS = C1 + C2 * 2 + C3 * 3 + C4 * 
4+C5*5 

740 IF CAS = O0 THEN 630 

750 : 

760 REM -- TRAITEMENTS -- 

770 : 

780 ON CAS GOSUB 810,810, 810,1340,134 
0 

790 RETURN : REM <AFFICHAGE MENU> 

800 : 

810 REM /// TRI /// 

820 : 

830 REM -- INIT TRI -- 

840 : 

850 CLE = CAS - 1 

860 P#(1) = 1 

870 : 

880 REM -- BOUCLE EXTE. _— 

890 : 

900 FORI=2TON 

910 : 

920 REM -- EXTRACTION -- 

930 : 

940 X$ = PAY$(I,CLE) 

950 : 

960 REM -- BOUCLE INTERNE -- 

970 : 

980 FOR J = I - 1 TO O STEP -]1 

990 JJ = P#(J) 

1000 : 

1010 REM -- COMPARAISON -- 

1020 : 

1030 ON 2 - (PAY$(JJ,CLE) < X$) GOSUB 
1120,1180 

1040 : 

1050 NEXT J,I 

1060 : 

1070 REM -- AFFICHAGE -- 

1080 : 

1090 GOSUB 1230: REM /// AFFICHAGE LI 
STE TRIEE /// 

1100 RETURN : REM <TRI> 

1110 : 

1120 REM /// INSERTION /// 

TI30: 

1140 P$#(J + 1) = I 

1150 J=0 

1160 RETURN : REM <INSERTION> 

1170 : 

1180 REM /// DECALAGE /// 

1190 : 

1200 P$(J + 1) = JJ 

1210 RETURN : REM <DECALAGE> 

1220 : 

1230 REM / AFFICHAGE LISTE TRIEE / 

1240 : 

1250 HOME 

1260 TRIE = 1 

1270 V = 13: GOSUB 1410: REM /// AFFI 
CHAGE LISTE /// 

1280 : 

1290 REM -- ATTENTE TOUCHE -- 

1300 : 

1310 GOSUB 1500: REM /// TOUCHE /// 

1320 RETURN : REM <TRI> 

1330 : 

1340 REM /// FINI /// 

1350 : 

1360 FINI = 1 

1370 POKE 34,0 

1380 VTAB 23 

1390 RETURN : REM <FINI> 

1400 : 

1410 REM /// AFFICHAGE LISTE /// 

1420 : 

1430 VTAB V: HTAB 1 

1440 FORI =1TON 


NOT TRIE 
PRINT PAYS(J,0); TAB( 20);PAY$(J 
1); TAB( 34);PAYS(J,2) 

NEXT I 
RETURN : 


1450 J = P$(I) * TRIE + I * 
1460 


1470 
1480 
1490 : 
1500 
1510 : 
1520 
1530 


REM <AFFICHAGE LISTE> 


REM /// TOUCHE /// 


PRINT CHRS$ (7); 

POKE 49168,0: WAIT 49152,128: PO 
KE 49168,0 

1540 PRINT CHR$ (7); 
1550 
1560 
1570 
1580 
1590 : 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 : 
1680 
1690 : 
1700 
1710 : 
1720 
1730 : 
1740 
1750 
1760 : 
1770 
1770 
1790 


RETURN : REM <TOUCHE> 


REM /// RETOUR MENU /// 


READ M$ 

POKE 34,0 

VTAB 1: PRINT 
PRO = PEEK (48896) = 76 
ON 2 - PRO GOTO 1650,1660 
PRINT D$;"RUN BASIC/";M$ 
PRINT D$;"RUN";M$ 


REM ##f DONNEES FIXES ### 
DATA 10 
—— NOM DES PAYS —- 


“Italie”, "Rome", "Il" 
“Pays-Bas","La Haye","NL" 


“Belgique”, "Bruxelles","B" 
“France”, "Paris"”,"F" 
“Danemark", "Copenhague", "DK 


1800 “Luxembourg”, "Luxembourg", "” 


1810 “Allemagne fédérale", "Bonn" 


1820 "Grande Bretagne", "Londres" 
1830 
1840 
1850 : 
1860 
1870 : 
1880 
1890 
1900 


"Grèce", "Athènes", "G" 
“Irlande”, "Dublin", "IRL" 


—- MESSAGES -- 
<P>ays." 


<C>apitale." 
<A>bréviatio 


"TX DATES... 
PCI DAT 56e. 
MPEL DAT: 


1910 
1920 
1930 
1940 : 
1950 
1960 : 
1970 


"Retour au ... <Menu." 
Mons nsobesasese SPOLÉI0, 7 
"Votre choix: <?>" 


-— MENU -—- 


"TRI. CHAINE.MENU" 


Programme 
‘TRI.CHAINE.1.2’ 


10 REM 
20 : 

30 GOSUB 150: REM /// INIT /// 

40 : 

50 FORI=1TON 

60 GOSUB 580: REM /// LECTURE /// 
70 GOSUB 640: REM // AFFICHAGE // 
80 NEXT I 


#*#*# TRI. CHAINE. 1.2 *** 


GOSUB 710: REM /// TRI /// 
GOSUB 790: REM LISTE TRIEE 
GOSUB 920: REM /// FIN /// 
END 








140 : 

150 REM /// INIT /// 

160 : 

170 PRINT CHR$ (21) 

180 : 

190 REM -- DOS OU PRODOS -- 

200 : 

210 DOS = PEEK (48896) < > 76 

220 ON 2 - DOS GOSUB 440,500 

230 : 

240 REM - TABLEAUX ET CONSTANTES - 

250 3 

260 DIM N$(500),1IX#(500) 

270 READ M$,NO$,F$,TS$,S$ 

280 : 

290 REM -- MASQUE D'ECRAN -- 

300 : 

310 SPEED= 255: TEXT : HOME 

320 VTAB 12: HTAB 5: PRINT M$ 

330 L = 5 + LEN (M$) 

340 VTAB 14: HTAB 5: PRINT NO$ 

350 ; 

360 REM -- FICHIER EN ENTREE -- 

370 : 

380 IF NOT DOS THEN F$ = "FICHIERS/" 
+ F$ 

390 PRINT D$;"OPEN";F$ 

400 PRINT D$;"READ";F$ 

410 INPUT N 

420 RETURN : REM <INIT> 

430 : 

440 REM /// INIT DOS /// 

450 : 

460 PRINT CHR$ (4);"BRUN TRI.DOS.INI 
Cr 

470 D$ = CHR$ (13) + CHR$ (4) 

480 RETURN : REM <INIT DOS> 

490 : 

500 REM /// INIT PRODOS /// 

510 : 

520 D$ = CHRS (4) 

530 PRINT D$;"PREFIX CODE.MACHINE" 

540 PRINT D$;"BRUN TRI.PRO.INIT.C" 

550 PRINT D$;"PREFIX /" 

560 RETURN : REM <INIT PRODOS> 

570 : 

580 REM /// LECTURE /// 

590: 

600 PRINT D$;"READ";F$ 

610 INPUT N${I) 

620 RETURN : REM <LECTURE> 

630 : 

640 REM /// AFFICHAGE /// 

650 : 

660 VTAB 12: HTAB L: CALL 64668 

670 PRINT NS$S(I) 

680 VTAB 14: HTAB L: PRINT I 

690 RETURN : REM <AFFICHAGE> 

700 : 

710 REM /// TRI /// 

720 : 

730 HOME 

740 HTAB 21 - LEN (T$) / 2 

750 VTAB 12: PRINT T$ 

760 & N,NS(1),IX#(1) 

770 RETURN : REM <TRI> 

780 : 

790 REM /// LISTE TRIEE /// 

800 : 

810 SPEED= 220: HOME 

820 PRINT ” NO"; TAB( 9);"NOMS"; TAB( 
28) ; "NO DE FICHE" 

830 

840 POKE 34,2: VTAB 3 

850 FORI=1TON 

860 HTAB 4 - LEN ( STR$ (I)): PRINT 
T? 

870 HTAB 7: PRINT NS(IX$(I)); 
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880 HTAB 34 - LEN ( STR$ (IX#(I))}): 250 REM PRESSION D'UNE TOUCHE T X$ 


PRINT IX#(I) 260 : 950 À = 10:B = 1:S = - l:H = 10: GOSU 
890 NEXT I 270 X = X - 128 B 420 
900 RETURN : REM <LISTE TRIEE> 290 IF X = 21 THEN CP = CP /2 960 NEXT L 
910 : 290 IF X = 8 THEN CP = CP * 2 970 : 
920 REM /// FIN /// 300 IF CP < 0.1 THEN CP = 0.1 980 REM ELEMENT COMPARE EN FLASH 
930 : 310 IF CP > 4 THEN CP = 4 930 : 
940 PRINT D$;"CLOSE";F$ 320 : 1000 M = 2: GOSUB 100 
950 ON 2 - DOS GOSUB 1040,1090 330 REM CLAVIER REINITIALISE 1010 DP = 100: GOSUB 160 
960 SPEED= 255 340 : 1020 FLASH 
970 PRINT : PRINT 350 POKE - 16368,0 1030 VTAB 3 + 2 * J: HTAB 4: PRINT PR 
980 HTAB 21 - LEN (S$) / 2 360 : $(7) 
990 VTAB 23: PRINT S$: POKE 34,0 370 REM BOUCLE DE TEMPORISATION 1040 FORF =1 TO 2 
1000 POKE 49168,0: WAIT 49152,128: PO 380 : 1050 À = 20:B = 10:S = - 1:H = 20: GO 
KE 49168,0 390 FOR P = 1 TO DP * CP: NEXT P SUB 420 
1010 IF PEEK (49152) < > 27 THEN G 400 RETURN 1060 À = 10:B = 20:S = 1:H = 20: GOSUB 
OSUB 1140: REM /// MENU /// 410 : 420 
1020 RETURN : REM <FIN> 420 REM /// BRUITAGE /// 1070 NEXT F 
1030 : 430 : 1080 NORMAL 
1040 REM /// FIN DOS /// 440 FOR T = À TO B STEP S: POKE 768,T 1090 VTAB 3 + 2 * J: HTAB 4: PRINT PR 
1050 : : POKE 769,H: POKE 796,1: CALL 7 $(2) 
1060 HIMEM: 38400 70: NEXT T 1100 DP = 100: GOSUB 230 
1070 RETURN : REM <FIN DOS> 450 RETURN 1110 RETURN 
1080 : 460 : 1120 : 
1090 REM /// FIN PRODOS /// 470 REM /// EXTRACTION /// 1130 REM /// DECALAGE /// 
1100 : 480 : 1140 : 
1110 CALL 48888: REM <DESALLOUE LES 490 REM ### TRAITEMENT ##4# 1150 REM $##f# TRAITEMENT ##4# 
ZONES DE MEMOIRE-TAMPON> 500 : 1160 : 
1120 RETURN : REM <FIN PRODOS> 510 XS = PR$S(I) 1170 PRS(J + 1) = PRS(J) 
1130 : 520 : 1180 : 
1140 REM /// MENU /// 530 REM ### ANIMATION ### 1190 REM ### ANIMATION ### 
1150 : 540 : 1200 : 
1160 ON 2 - DOS GOTO 1170,1180 550 M = 1: GOSUB 100 1210 REM --- MESSAGE BAS ECRAN --- 
1170 PRINT D$; "RUN TRI.CHAINE.MENU" 560 DP = 500: GOSUB 160 1220 : 
1180 PRINT D$;"RUN BASIC/TRI.CHAINE.M 570 : 1230 M = 3: GOSUB 100 
ENU" 580 REM --- NUMERO EN INVERSE --- 1240 DP = 500: GOSUB 160 
1190 : 590 : 1250 : 
1200 REM ### DONNEES FIXES #44 600 VTAB 3 + 2 * I: INVERSE : PRINT I 1260 REM AFFICHAGE DU DECALAGE 
1210 : : 1270 : 
1220 DATA "LECTURE DU NOM : " 610 À = 1:B = 5:S = 1:H = 200: GOSUB 4 1280 À = 10:B = 1:S = - l:H = 80: GOS 
1230 DATA "FICHE NO DE 20 UB 420 
1240 DATA "TRI.LISTE" 620 : 1290 INVERSE : VTAB 4 + 2 * J: HTAB 4 
1250 DATA "TRI EN COURS" 630 REM --- GLISSEMENT 1 --- : PRINT PR$S(J + 1) 
1260 DATA "ESC: SORTIE / AUTRE TOUCHE 640 : 1300 DP = 150: GOSUB 160 
: MENU" 650 DP = 500: GOSUB 160 1310 VTAB 4 + 2 * J: HTAB 4: NORMAL : 
660 LX = LEN (X$) PRINT SPC( 20) 
670 FOR K = 0 TO LX 1320 VTAB 5 + 2 * J: HTAB 4: INVERSE 
Programme 680 NORMAL : PRINT PR$(J + l);: NORMAL : PR 
€ ; 690 HTAB 4: PRINT MIDS$S (X$,1,K); INT SPC( 20) 
TRI. CHAINE.DEMO 700 INVERSE : PRINT XS$; 1330 À = 10:B = 1:S = - 1:H = 80: GOS 
710 A = 1:B = 5:S = 1:H = 40: GOSUB 42 UB 420 
10 REM *** TRI,CHAINE.DEMO *** 0 1340 DP = 1000: GOSUB 160 
20 : 720 NEXT K 1350 VTAB 5 + 2 * J: HTAB 4: PRINT PR 
30 REM ### CORPS DU PROGRAMME ### 730 : S(J +1) 
40 : 740 REM --- GLISSEMENT 2 --- 1360 RETURN 
50 GOSUB 2200: REM /// INITIALISATIO 750 : 1370 : 
N /// 760 FOR K = 1 TO 22 - LX - 4 1380 REM /// INSERTION /// 
60 GOSUB 1770: REM /// TRI PAR INSERT 770 NORMAL : HTAB LX + 4: PRINT SPC( 1390 : 
ION /// K) 1400 REM ### ANIMATION ##4 
70 GOSUB 1870: REM /// FIN DE PROGRA 780 INVERSE : PRINT XS$S; 1410 : 
MME /// 790 À = 1:B = 5:5S = 1:H = 40: GOSUB 42 1420 REM --- MESSAGE BAS ECRAN --- 
80 END 0 1430 : 
90 : 800 NEXT K 1440 M = 4: GOSUB 100 
100 REM / AFFICHAGE DES MESSAGES / 810 : 1450 : 
110 : 820 REM --- ARRET À DROITE -—- 1460 REM GLISSEMENT VERS LE BAS 
120 VTAB 23: CALL - 868: NORMAL 830 : 1470 : 
130 HTAB 19 - LEN (M$S(M)) / 2: PRINT 840 DP = 500: GOSUB 160 1480 DP = 75: GOSUB 160 
MS (M) 850 RETURN 1490 VTAB 3 + 2 * J: HTAB 22: CALL - 
140 RETURN 860 : 868 
150 : 870 REM /// COMPARAISON /// 1500 INVERSE : VTAB 4 + 2 * J: PRINT 
160 REM /// PAUSE /// 880 : xs 
170 : 890 REM ### GLISSEMENT VERS LE HAUT 1510 À = 15:B = 1:S = - 1:H = 80: GOS 
180 REM MODIF. DUREE DES PAUSE ##4 UB 420 
190 : à 300 : 1520 DP = 75: GOSUB 160 
200 REM --- LECTURE CLAVIER -——— 910 FOR L = 5 TO 4 STEP - 1 1530 VTAB 4 + 2 * J: HTAB 22: CALL - 
210 : 920 VTAB L + 2 * J: HTAB 22: CALL - 868 
220 X = PEEK ( - 16384) 868 1540 VTAB 5 + 2 * J: PRINT XS$S; 
230 IF X < 128 THEN 390 930 INVERSE 1550 À = 15:B = 1:S = - 1:H = 80: GoS 


240 : 940 VTAB L - 1 + 2 * J: HTAB 22: PRIN UB 420 








1560 DP = 1000: GOSUB 160 2110 REM /// TRI.CHAINE.MENU /// 2670 A$ = "TRI PAR INSERTI 
1570 : 2120 : O N" 
1580 REM GLISSEMENT HORIZONTAL 2130 POP : POP 2680 À = 19 - LEN (AS$) / 2 
1590 : 2140 TEXT : VTAB 1 2690 HTAB A: PRINT A$ 
1600 FOR L = 21 TO 4 STEP -1 2150 PRO = PEEK (48896) = 76 2700 VTAB 3 
1610 INVERSE : HTAB L: PRINT X$; 2160 ON 2 - PRO GOTO 2170,2180 2710 : 
1620 NORMAL : PRINT SPC( 1) 2170 PRINT CHRS (4};"RUN BASIC/TRI.C 2720 REM AFFICHAGE DES PAYS | 
1630 À = L:B = L:S = 1:H = 100: GOSUB HAINE.MENU" 2730 : 
420 2180 PRINT CHRS (4);"RUN TRI.CHAINE. 2740 FOR K = 0 TON 
1640 NEXT L MENU" 2750 PRINT K;". ";PRS(K): PRINT 
1650 : 2190 : 2760 NEXT K 
1660 REM INSERTION TERMINEE 2200 REM /// INITIALISATION /// 2770 : 
1670 : 2210 : 2780 REM MESSAGE BAS DE L 'ECRAN 
1680 DP = 1000: GOSUB 160 2220 PRINT CHR$ (21) 2790 : 
1690 NORMAL : HTAB 4: PRINT XS 2230 TEXT : HOME : SPEED= 255 2800 M = 0: GOSUB 100 
1700 : 2240 : 2810 À = 1:B = 10:S = l1:H = 100: GOSUB 
1710 REM TRAITEMENT 2250 REM --- TABLE DES PAYS --- 420 
1720 : 2260 : 2820 À = 1:B = 10:S = 1:H = 50: GOSUB 
1730 PR$S(J + 1} = X$ 2270 DIM PR$(9) 420 
1740 J = 0 2280 N = -1 2830 : 
1750 RETURN 2290 : 2840 REM ATTENTE D'UNE TOUCHE 
| 1760 : 2300 REM --- LECTURE PAYS -- 2850 : 
1770 REM TRI PAR INSERTION 2310 : 2860 WAIT - 16384,128: POKE - 16368 
1780 : 2320 READ PR$ ,0 
1790 FORI=2TON 2330 IF PR$ = "F" THEN 2370 2870 RETURN | 
1800 COSUB 470 2340 N = N + 1:PRS(N) = PRS 2880 : | 
1810 FOR J = I - 1 TO O0 STEP -1 2350 GOTO 2300 2890 REM ### DONNEES FIXES ### 
1820 GOSUB 870 2360 : 2900 : 
1830 ON (X$ < PR$(J)) + 1 GOSUB 1380, 2370 REM LECTURE DES MESSAGES 2910 REM --- PAYS --- 
1130 2380 : 2920 : 
1840 NEXT J,I 2330 DIM M$(5) 2930 DATA “ “ 
1850 RETURN 2400 FOR K = 0 TO 5 2940 : 
1860 : 2410 READ MS(K) 2950 DATA "PASCAL" 
1870 REM /// FIN DU PROGRAMME /// 2420 NEXT K 2960 DATA "FORTRAN" 
1880 : 2430 : 2970 DATA "COBOL" 
1890 REM MESSAGE BAS DE L'ECRAN 2440 REM --- COEFFICIENT PAUSE --- 2980 DATA "BASIC" 
1900 : 2450 : 2990 DATA "ASSEMBLEUR" 
1910 M = 5; GOSUB 100 2460 CP = 1 3000 DATA "MODULA 2" 
1920 À = 1:B = 10:S = l:H = 100: cosug 2470 : 3010 DATA "ADA" 
420 2480 REM BRUITAGE 3020 DATA ‘"PLI" 
1930 À = 1:B = 10:S = 1:H = 50: GOSUB 2490 : 3030 DATA "C" 
420 2500 FOR I = O0 TO 25: READ A: POKE 77 3040 DATA ‘"F" 
1940 : O0 + I,A: NEXT I æ 3050 : 
1950 : REM  ATTENTE D'UNE TOUCHE 2510 : 3060 REM --- MESSAGES --- 
1960 : 2520 REM --- AFFICHAGE INITIAL --- 3070 : 
1970 POKE 49168,0: WAIT 49152,128: PO 2530 : 3080 DATA "DE BUT DU TRI" 
KE 49168,0 2540 REM --- CADRE --- 3090 DATA "EXTRACTION" 
1980 : 2550 : 3100 DATA "COMPARAISON" | 
1990 REM TEST RETOUR TRI.CHAINE.MENU 2560 POKE 48,186 3110 DATA "DECALAGE" 
2000 : 2570 VLIN 0,47 AT 0: VLIN 0,47 AT 39 3120 DATA "INSERTION" 
2010 TC = PEEK (49152) 2580 Sesssssssss 3130 DATA "FIN: <ESC> = SORTIE <RTN> 
2020 CH = (TC = 27) + (TC = 13) * 2 = MENU" 
2030 ON CH GOSUB 2060,2110 2590 VTAB 2: PRINT L$; 3140 : 
2040 GOTO 1950 2600 VTAB 22: PRINT L$; 3150 REM --- PROG. MUSIQUE --- 
2050 : 2610 VTAB 24: PRINT LEFTS (L$,39); 3160 : 
2060 REM /// SORTIE /// 2620 POKE 33,37: POKE 32,2 3170 DATA 173,48,192,173,0,3,32,168,2 
2070 : 2630 : 52,173,1,3,208,5,206,28,3,240,6, 
2080 TEXT : HOME 2640 REM --- TITRE --- 206, 1,3, 76,2,3,96 
2090 POP : RETURN 2650 : 
2100 : 2660 VTAB 1 





| Source ‘TRI.PRO.INIT’ 14 * - Date de création: 12 aout 1985 * 





15 * - Assembleur: Merlin-Pro 1.43 * 

assembleur Procode 16 #AARARRRRARARRAAARÉAARÉAARRARÉÉRERARRER EE RER ÉÉEÉÉ 

1 LST OFF 17 

2 TAB 03,15,21,31,36,49 18 ORG $300 

JF 'ARRRRRRRRRRRERRRARRRRÉAARRAÉÉÉRRARARÉRRRRRÉRRR ER 19 

4% >>> TRI.PRO.INIT <<< * 20 mm mm À 

Gene teen mme mr À 21 * - Adresses de référence x 

6 * —- réserve 1 mémoire-tampon d'une page entre * 22 fm mm mmmmmmmmmmmmmmm—mm———…— * | 
7 le BASIC.SYSTEM et sa mémoire-tampon * 23 

8 * d'usage général (General Purpose Buffer). * 24 IN =  $200 ;Mémoire-tampon d'entrée 

9 * — le programme TRI.CHAINE.C y est chargé. * 25 WARMST = $3D0 sRedémarrage avec SED 

19 mm mm * 26 AMPERVB = $3F6 ;Pointeur perluète (6) 

11 * - ProDOS + BASIC.SYSTEM + Applesoft * 27 AMPERVH =  S$3F7 ; (vecteur Ampersand) 
rene TENTE IT PR TOO TT * 28 GETBUFR EQU $BEFS5 ‘Allocation de mémoire par 
13 * - Auteur: LAMBILLON Bernard * 29 ;page de 256 octets; le 
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30 
31 
32 
39 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
Li] 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
8€ 
8: 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 


snombre de pages est dans À. 

;L'adresse de début de la page 

sest un multiple de 256 (adresse 

sbase = $00). 

;Au retour, À = 0 si erreur. 
DOSCMD EQU $BE03 ;Analyse et exécution d'une 

scommande ProDOS plaçée dans 

;la mémoire-tampon d'entrée; 

;la ligne de commande se termine 

;spar $8D, le code ASCII des 

;car. est avec le bit 7 mis à 1. 

;Au retour, C = 1 si erreur. 


ERROUT EQU $BE09 ‘Gestion en cas d'erreur 
‘dans une commande ProDos. 
Le code d'erreur est placé en 
#ERRCODE ($BEOF) et ERRNUM ($DE) 
PRINTERR EQU $BEOC Affiche message d'erreur 
dont le numéro est en À. 
ERRCODE = $BEOF ;Code d'une erreur ProDOS 
ee ee ee * 
* - réservation d'une page de 256 octets * 
LE * 
LDA #$01 ;1 page de 256 octets 
JSR GETBUFR allocation de mémoire 
BEQ AMPER ;si pas d'erreur 
PAG 
LE * 
*- Erreur: plus assez de place en mémoire * 
LE * 
LDA #$0E Code erreur: PROGRAM TOO LARGE 
JSR PRINTERR saffiche message erreur 
JMP WARMST arret du programme Basic 
Re me ee ee em em me * 
* - Ecriture (partie haute du vecteur AMPERV * 
Re ee ee me me ee me ee ne me me ne meme me em ee me eme * 
AMPER STA AMPERVH ; AMPERVH = n° de page 
sde la zone allouée 
LR * 
* - conversion de l'adresse en ASCII * 
* et écriture de celle-ci dans la zone * 
* ADRESSE qui mémorise l'adresse de * 
* chargement du programme TRI.CHAINE * 
mm * 
TAX ;sauvegarde de À dans X 
LSR sdécalage du quartet de 
LSR ;poids fort dans le 
LSR quartet de poids faible 
LSR sex: 9C --> 09 
CLC sconversion en Ascii 
ADC #$B0 sex: 09 --> B9 
STA ADRESSE sparamétre adresse de chargem. 
TXA srestauration de À 
AND #$0F smasque $0F (ex: $9C--> $0C) 
;ÀA = quartet de poids faible 
CMP #$0A ;:$00 à $09 ou $S0A à $0F 
BMI CHIFFRE si À contient de $00 à $09 
ADC #$06 ;sinon À <== À + 7 
sex: $0C --> $13 
CHIFFRE  ADC #$B0 sconversion en Ascii 
sex: $13 --> $C3 (lettre C) 
STA ADRESSE+1 ;paramétre adresse de chargem. 
ee ee ee me mme me me mm mm mme mme mm mme 
* - Ecriture partie basse du vecteur AMPERV * 
ee ee * 
LDA #$00 alignement sur 1 page 
STA AMPERVB 
LE NE à 
* —- Copie, analyse et exécution de la * 
* commande ProDOS: BLOAD TRI.CHAINE. * 
en ee * 


111 


112 LDY #0 scopie de la commande 
113 COPIE LDA COMMANDE, Y ;dans la mémoire-tampon 
114 STA IN,Y sd'entrée IN ($200). 
115 INY 

116 CMP #$8D fin de commande? 

117 BNE COPIE 

118 JSR DOSCMD ;analyse et exécution 
119 BCC RETOUR ;Si pas d'erreur 

120 PAG 

121 mm mm * 
122 * - Erreur d'exécution de la commande * 
123 = * 
124 

125 JSR ERROUT analyse l'erreur 

126 LDA ERRCODE ;imprime le message 

127 JSR PRINTERR saffiche message erreur 
128 JMP WARMST ‘arret du programme Basic 
129 

130 RETOUR RTS retour au programme Basic 
131 

132 = * 
133 * - Commande: BLOAD TRI.CHAINE.C, A$??00 * 
14 * 
135 


136 COMMANDE ASC "BLOADTRI.CHAINE.C,A$" 


137 ADRESSE DFB $B0, $B0, $B0, $BO 
138 DFB $8D ‘fin de la commande 


Source ‘TRI.DOS.INIT’ 


assembleur Procode 


1 LST OFF 

2 TAB 03,15,21,31, 36,49 

TJ 'RARRRRRR RARES ARR RÉ RÉ Rd RÉ ARR RÉ RÉ 

d* >>> TRI,.DOS.INIT <<< * 

GS Rmmmmmmmmmmmmmmmmmmmm-— * 

6 * - Ce programme charge le programme * 

7 * TRI.CHAINE.C en dessous du HIMEM actuel, * 

8 * - le vecteur & est mis en place et le HIMEM * 

9 * est déplacè de 214 octets ($D6). * 
10 mm mm me eme mme meme mme me me me me me men * 

11 * - DOS 3.3 + Applesoft * 
12 mm em mm me be men mn me mm * 
13 * - Auteur: LAMBILLON Bernard * 
14 * - Date de création: 12 aout 1985 * 
15 * - Assembleur: Merlin-Pro 1.43 * 
16 FARRRAARRRRRRRRR RAR RAR RÉ td td tt té à 
17 

18 ORG $300 
19 

20 mo om oo oo * 

21 * - Adresses de référence + 
22 Ro mo om mo om oo oo * 
23 
24 LINNUMB = $50 adresse pour RSHM 
25 LINNUMH = $51 
26 HIMEMB _ $73 sadresse la plus élevée 
27 HIMEMH = $74 sde la mémoire vive 
28 IN _ $200 ;smémoire-tampon d'entrée 
29 AMPERVE - $3F6 spointeur perluète (6) 
30 AMPERVH = $3r7 ; (vecteur Ampersand) 

31 DOSKBD EQU $9FCD analyse une commande DOS 
32 RSHM EQU $F28C mise en place du HIMEM 
33 sen fonction de LINNUM ($50,$51) 
34 
75 mm mm mm mm ee me meme mm men me men mme ne ae ms ee mme mme mme * 
36 * - HIMEM <== HIMEM - $D6 (214 octets) d 
37 * — AMPERV <== HIMEM * 
HE a eme mme mm mme eee mme mme mm * 
39 
40 LDY 4#$03 init pour écriture ADRESSE 
41 SEC 
42 LDA HIMEME 3 HIMEMB <== HIMEMB - $D6 
43 SBC #$D7 
44 STA LINNUMB spour RSHM 
45 STA AMPERVB * AMPERVB <== HIMEMB 
46 JSR ASCII sconversion en Ascii 





58 


Pom's n° 25 





47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
39 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 


LDA HIMEMH 

SBC #$00 *HIMEMH <== HIMEMH - retenue 

STA LINNUMH pour RSHM 

STA AMPERVH : AMPERVH <æ= HIMEMH 

JSR ASCII conversion en Ascii 

JSR RSHM :ReSet HiMem 
mm) * 
* — Copie, analyse et exécution de la * 
* commande ProDOS: BLOAD TRI.CHAINE. * 
fm) À 
COPIE LDA COMMANDE, Y ;dans la mémoire-tampon 

STA IN,Y sd'entrée IN ($200). 

INY 

CMP #$8D sfin de commande? 

BNE COPIE 

JSR DOSKBD sanalyse et exécution 

RTS 
Poe me ee ee me ee me mn me eme me mme ee me ee ee eee es mn me me en ee ms * 
# - conversion de l'adresse en ASCII * 
* et écriture de celle-ci dans la zone * 
* ADRESSE qui mémorise l'adresse de * 
* chargement du programme TRI.CHAINE * 
Ro me me me me me me me mme me meme mme mme me mme mme me mme me meme me meme mue me eee em * 


ASCII TAX ;sauvegarde de À dans X 
AND #$0F smasquage des bits 4 à 7 
JSR CONVERT conversion quartet 
TXA 
LSR décalage du quartet de 
LSR spoids fort dans le 
LSR squartet de poids faible 
LSR sex: 9C ——> 09 
JSR CONVERT sconversion quartet de 
spoids fort 
RTS ;fin de la routine ASCII 
CONVERT CLC 
CMP #$0A :$00 à $09 ou $0A à $0F 
BMI CONVERT1 ;si À contient de $00 à $09 
ADC #$06 ssinon À <== À + 7? 
sex: $0C --> $13 
CONVERT1 ADC #$B0 conversion en Ascii 
sex: $13 --> $C3 (lettre C) 
STA ADRESSE, Y ;paramétre adresse de chargem. 
DEY 
RTS sfin de la routine CONVERT 
A om cm om me mom mme mom me me moe co ce ee nt ne ee ee ee ee * 
* — Commande: BLOAD TRI.CHAINE.C, A$2??00 * 
ee ee oo ee * 


COMMANDE ASC "BLOADTRI.CHAINE.C,A$" 
ADRESSE DS 4 


DFB $8D ;fin de la commande 


Source ‘TRI.CHAINE’ 


assembleur Procode 


Hs ba ba 
N hi © Lo © Jo Qi Gi AN Ha 


ba ba ba ba ba ba 
© — Oo Un 


LST OFF 

TAB 03,15,21,31,36,49 
AARRRARARAERARAÉÉARARARARÉ AAA AR RAA RAR AR ARR 
* >>> TRI.CHAINE <<< * 
ee ee ee ee me me ee me ee me ee me * 
* —- trie un tableau de chaines de caractères * 
* sans modifier l'ordre initial. * 
* - mémorise l'ordre alphabétique au moyen * 
* d'une table d'index (type entier) qui est * 
*  {nitialisée par le programme lui-meme. * 
LR * 
* — Syntaxe : & N, AS$(1), IX$(1) * 
* avec N : nombre d'éléments à trier * 
* A$(1): élément 1 de la table à trier * 
# IX#(1): élément 1 de la table d'index # 
Re ee eee eme me me * 
* - DOS + Applesoft ou * 
* - ProDOS + Basic.System + Applesoft * 


Pom's n° 25 


Comment faire ? 


Pour utiliser cette routine de tri au sein de votre 
programme Basic, vous devrez avoir sur la disquette les 
fichiers binaires : 
TRI.DOS.INIT.C et TRI.CHAINE.C 
s'il s'agit d'une disquette DOS, ou : 
TRI.PRO.INIT.C et 
s'il s'agit d'une disquette ProDOS. 


TRI.CHAINE.C 


Au début du programme Basic, il y aura une instruction : 
PRINT CHR$(4)"BRUN TRI.DOS.INIT.C" 
s'il s'agit d'une disquette DOS, ou : 
PRINT CHR$(4)"BRUN TRI.PRO.INIT.C" 
s'il s'agit d'une disquette ProDOS. 


Comment trier ? 


Un exemple simple : 


Dans un tableau alphanumérique se trouvent des noms de 
clients : 

A$(2) = 
A$(4) = 
A$(6) = 


DIM A$(6) : A$(1) = "JEAN" : 
"PAUL" : A$(3) = "ANNE" 
"YVES" : A$(5) = "LYDA" 

"YANN" 


Il faut dimensionner un tableau pour recevoir les clefs 
d'accès : 
DIM I%(6) 


Maintenant le tri proprement dit : 
£&6,A$(1),I8#(1) 


&6 parce qu'il y a 6 éléments à trier, 
A$(1) représente le premier élément à trier, 
l%(1) est le premier index. 


Pour trouver nos clients par ordre alphabétique, il faut les 
lire suivant le tableau d'index maintenant modifié : 
FOR I = 1 TO 6 : PRINT A$(I#(I)) : 
NEXT 


Les programmes de démonstration 


sous DOS fonctionneront directement et d'autant plus 
simplement que vous disposez de la disquette 
d'accompagnement. 


Sous ProDOS, après saisie au clavier ou transfert depuis 
la disquette Pom's, vous devrez mettre les programmes 
Basic dans un sous-catalogue nommé : 

BASIC 


et les routines dans un sous-catalogue nommé : 
CODE.MACHINE 


* - Auteur : LAMBILLON Bernard 
* - Date de création: 10 aout 1985 


* —- Assembleur : ProCode 1.23 
AÉARAARÉARRRRÉÉRRRÉRÉARÉRRÉRRRÉRRRÉRÉRARÉRRÉÉRRÉARRÉRÉÉ 


ARARÉARÉÉÉRÉARÉÉARÉÉÉÉÉRÉAÉRÉÉÉÉRÉRR ARR AREA 


* ADRESSES DE REFERENCE ind 
RRRRARRARARARÉRÉÉARÉAÉARÉRÉARER ER RAR AR ÉÉAÉÉ AREA É 














28 
29 
30 
31 
32 
33 
34 
35 
36 
= f4 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 

59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
7 
72 
73 
74 
75 
76 
77 

78 
79 
80 
81 

82 
83 
84 

85 
86 
87 
88 

89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 

100 
101 
102 
103 
104 
105 
106 
107 
108 


É————mmmmmmmmmmmmmmmmmmmm___.“.…<… * 

* Pointeurs vers la table des chaines à trier * 

fm * 

TABLEOB = $6 sadresse de l'élément 

TABLEOH = $7 sd'indice 0 de la table 

TABLE1B - $8 sadresse de l'élément 

TABLEIH = $9 extrait de la table 

TABLE2B = $19 zadresse de l'élément 

TABLE2H = $1A ;comparé dans la table 

À oo mm mm 

* Pointeurs vers la table d'index * 

fm. * 

INDEX1B = $83 ;adresse de l'index 

INDEX1H = $84 sde l'élément extrait 

INDEX2B = $18 sadresse de l'index 

INDEX2H = $1c sde l'élément comparé 

Ro me cm me ee ce me em * 

* Nombre d'éléments à trier # 

om ee ee mm mm * 

NBELB = $50 ;la routine GETADR écrit un 

NBELH = $51 sentiér à cette adresse 

ee ee me me me ee em ee me ee * 

* Descripteur de la chaine extraite # 

Ro om oo oo oo om * 

LONG1 = $93 longueur chaine extraite 

CHAINE1B = $94 ;adresse de stockage 

CHAINEIH = $95 sde la chaine extraite 

PAG 

fommmmmmmmmmmmmmmmmmmmmmmm…-—… * 

* Descripteur de la chaine comparée # 

mm me em * 

LONG2 = $96 slongueur chaine comparée 

CHAINE2B = $97 adresse de stockage 

CHAINE2H = $98 sde la chaine comparée 

me mm me mo * 

* Index de l'élément extrait * 

LÉ * 

ENTIERIH = S9A partie haute de l'index 

ENTIERIB = $9B spartie basse de l'index 

Re mm * 

* Index de l'élément comparé * 

Lee ee ee me eme me me mm me me mme men me nee ne me ee me nn * 

ENTIER2H = $1D partie haute de l'index 

ENTIER2B = $1E partie basse de l'index 

ee em ee me me me * 

* Routines Applesoft en MEM (ROM) ë 

fmmmmmmmmmmmmmmmmmmmm_——…—…—… * 

FRMNUM EQU $DD67 value la formule pointé; 
;par TXTPTR ($B8 et S$B9) 
set place le résultat en 
;FAC ($9D..S$A2) 

CHKCOM EQU $DEBE teste présence d'une virgule 
;si erreur: ?SYNTAX ERROR 
; IN numéro de ligne 
set retour au programme Basic 

CHKNUM EQU  $DD6A steste variable type numérique 
;si erreur: ?TYPE MISMATCH 
;ERROR IN numéro de ligne 

CHKSTR EQU $DD6C steste variable type chaîne 
;si erreur: ?TYPE MISMATCH 
*ERROR IN numéro de ligne 

PTRGET EQU S$DFE3 scherche une variable et place 
;son adresse dans À et Yet en 
; VARPNT ($83 et $84) 

GETADR EQU S$E752 stransforme de FAC ($9D..S$A2) 


sen un entier stocké en 


:LINNUM ($50,$51) c-à-d NBLE 
; (nombre d'éléments à trier) 


RRRRRRRRRRR RAR RÉ RÉ RAR RAR RAR RAR RAR RAA RAA RARE RE 


* INITIALISATION DU TRI : 


ttitiiiitiiiiitiiiiiiiiiéiitéféttééééééééétéiéé 


mm mm mm mm mm mm mm mm 


* Lecture du nombre d'éléments à trier (NBLE) * 


LEE 

JSR FRMNUM ;lecture du nombre d'éléments; 
;et stockage en FAC ($9D..$A2) 
JSR GETADR ;FAC --> NBLE ($50 et $51) 
PAG 


LEE 2 


* Initialisation pointeurs TABLEO et TABLE1 * 


JSR CHKCOM teste présence d'une virgule 
JSR PTRGET ‘place adresse de la variable 
spointée par TXTPTR dans À 
; (partie basse) et Y (partie 
;haute) 
JSR CHKSTR steste variable type chaine 
SEC jinitiation soustraction 
STA TABLEI1B stransfert de À --> TABLE1B 
SBC 4#$03 :3 octets par élément d'un 
stableau du type chaine 
STA TABLEOB stransfert de À --> TABLEOB 
STY TABLEIH stransfert de Y --> TABLE1H 
TYA s 
SBC #$00 ;TABLEOH <-- TABLE1H - carry 
STA TABLEOH ;transfert de À --> TABLEOH 
LE * 
* Initialisation du pointeur INDEX1 * 
Émmmmmmmmmmmmmmmmmmmmmmmmmmmm__… * 
JSR CHKCOM ‘teste présence d'une virgule 


JSR PTRGET ;place adresse de l'élément 1 
sde la table d'index en VARPNT 


;($83 et $84) c-à-d ici INDEX1 


JSR CHKNUM ‘teste s'il s'agit d'un nombre 
LE * 
* Initialisation compteur ENTIERI et IX#(1) * 
LE * 

LDY 4#$00 ENTIERIH <== ( 

STY ENTIERIH 

TYA 

STA (INDEX1B),Y;partie haute IX#(1) <== ( 

INY 

STY ENTIERIB ;ENTIERIB <== 1] 

TYA 

STA (INDEX1B),Y;partie basse IX%#(1) <== 1 

CLC init. report pour EXTRACT 


RRRRRRRRÉRRÉRRRÉRRRRÉRÉARR ARR RAR ARR RAR ÉRRRÉRR RARE 


* BOUCLE EXTERNE (FOR I = 2 TO N) # 
RAR AR 8 où 8 À À Et #2 À à 


fn $# 
* Répéter NBEL <== NBEL-1 tant que NBEL <> 0 * 
Re me me ee me me emo ne me nee ee me de me en * 
EXTERNE LDA NBELB 

BNE EXTERNELl ;si NBELB<>0 

DEC NBELKH ;NBELH <== NBELH-1 si NBLEB=0 
EXTERNE1 DEC NBELB :NBELB <== NBELB-1 

BNE EXTRACT si NBLEB<>0 

LDA NBELH - 

BNE EXTRACT :si NBLEB=0 et NBELH<>0 

RTS ;Si NBELB=0 et NBELH=0 

PAG 
RhRRR*R RAR * Ré th* that ht hat hé 
* INSERTION s 


AÉRRARRRRRRAAN RAR ÉÉRÉRRRÉRRRARÉRRRÉRRRR RAR A 
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190 * ENTIERI <== ENTIERI + 1 L 271 ADC TABLE2B ;A contient 3*ENTIER2B 
19 mm mm À 272 BCC INTERNELl ;si pas de débordement 
192 273 INC TABLE2H ; TABLEH <== TABLER+1 
193 INSERT INC ENTIERIB >;ENTIERIB <== ENTIER1B+1 274 CLC 
194 BNE INSERTI ;si pas de chgt. de page 275 INTERNE1 ADC TABLEOB A contient 3*ENTIER2B+TABLEOB 
195 INC ENTIERIH ;>ENTIERIH <== ENTIERIH+1 276 STA TABLE2B ;ok pour TABLE2B 
196 277 LDA TABLE2H ;A contient 2*ENTIER2H+report 
PUCES RE x 278 ADC ENTIER2H ;A contient 3*ENTIFR2H 
198 * Copie de ENTIERI dans l'élément pointé par * 279 CLC 
199 * INDEX2 + 2 — 280 ADC TABLEOH A contient 3*ENTIER2H+TABLEOH 
ARR Li 281 STA TABLE2H ;ok pour TABLE2H 
201 282 
202 INSERTI LDA ENTIERIH ;copie partie haute PL E EEE # 
203 LDY 4#$02 284 * Sauvegarde du descripteur de chaîne contenu * 
204 STA (INDEX2B),Y 285 * dans l'élément comparé. Æ 
205 LDA ENTIERIB ;copie partie basse DRE * 
206 INY 287 
207 STA (INDEX2B),Y 288 LDY 4#$02 scopie de 3 octets 
208 CLC sbit de report forcé à 0 289 INTERNEZ2 LDA (TABLE2B),Y 
209 jinit. report pour EXTRACT 290 STA LONG2,Y écriture en CHAINEZH, 
210 BCC EXTERNE sbranchement inconditionnel 291 DEY : CHAINE2B et LONG2 
: 211 292 BPL INTERNE2 
212 RRÉRRRR RÉ RAR RAR RAR RAR RR NRA RAR RRRRRRRRRRRÉR RÉ RÉ 293 PAG 
213 * EXTRACTION * 294 RRARRRRRRRARARRARRRRRRRARRRRARRÉRRRRARRRRRÉRRÉRRX 
214 RRRRÉRRRR ARR ARRARÉRRRRARÉRRRRRRRRÉRRRÉRÉRÉRÉRÉRRÉRÉ 295 * COMPARAISON * 
215 DD #2 2 D D D D D D D D 2 
| PRÉ, LR * 297 
217 * TABLEL <-- TABLEL + 3 * 298 = * 
CN ne en an CT Te — ji PAT FN vd 299 * Test dernier caractère d'une des chaines? * 
219 300 * Test si une des chaines est vide? Li 
220 EXTRACT LDA TABLE1B :TABLE1B <== TABLE1B+3 BOL Re * 
221 ADC #$03 302 
222 STA TABLEIB 303 INTERNE3 INY ;Y=0,1,2... 
223 BCC EXTRACTI ;si pas de report 304 CPY LONG2 
224 INC TABLE1H :TABLE1H <== TABLE1H+3 305 BEQ INSERT si dernier caractère chaine 
225 306 ;comparée (LONG2=0 ou LONG2=Y) 
226 =mmmmmmmmmmmmmmmmmmmmmmmememmeremmemmmmmmme— # 307 CPY LONGI1 
227 * INDEX2 <== INDEX1 * 308 BEQ DECALE 51 dernier caractère chainee 
228 * INDEX1 <== INDEX1 + 2 * 309 extraite (LONG1=0 ou LONGI=Y) 
LE =mmmmmmmmmmmmmnmemmmmmmemmmmemmmmememcr— x DL 0 Eemree me mare serve rer ve pee pe eme 2 en em mme em meme ms * 
230 311 * Comparaison du Yème caractère des 2 chaines * 
231 CLC A ee rm * 
232 EXTRACTI1 LDA INDEXI1B ;INDEX2B <== INDEX1B 313 
233 STA INDEX2B 314 LDA (CHAINE2B),Y;A=Yème car, chaine comparée 
234 ADC #$02 :INDEX2B <== INDEX1B+2 315 CMP  (CHAINE1B),Y;M=Yème car. chaine extraite 
235 STA INDEX1B 316 BCC INSERT ‘’A<M 
236 LDA INDEX1H :INDEX2H <== INDEX1H 317 BNE DECALE ;A>M 
237 STA INDEX2H 318 
238 ADC 4#$00 ;INDEX1H <== INDEX1H+report 319 À * 
239 STA INDEX1H 320 * Caractères identiques * 
240 PAG Rp ro re * 
241 322 
242 tm mm mm mm mm mm mm mm mm mm * 323 BEQ INTERNE3 ;branchement inconditionnel 
243 * Sauvegarde du descripteur de chaine contenu * 324 
244 * dans 1 l'élément extrait. * 325 RARRRARRRÉRARRAÉARAÉARRÉAARRARARAAÉARÉRARARÉRRÉR AE EE 
245 tm mm À 326 * DECALAGE * 
246 327 ththiiiiééééitététééiéitétéiétéééééétététééétéés 
247 LDY #02 copie de 3 octets 328 
248 EXTRACT2 LDA (TABLEIB),Y EE * 
249 STA LONGI,Y écriture en CHAINEIH, 330 * IX#(J+1) <== IX#(J) * 
250 DEY ;CHAINE1B et LONGI ST ES ST * 
251 BPL EXTRACT2 332 
252 333 DECALE LDY #$02 
253 RAR A DR D D DD D D D D DE DE 08 06 D DE 6 DD 8 À à à À 334 LDA ENTIER2H 
254 * BOUCLE INTERNE (FOR J=I-1 TO 0 STEP -1) * 335 STA (INDEX2B),Y 
‘ 255 RAAHAMEAREE RAA NEA AAA AAA AAA A A AA A À À À EE À 336 INY 
256 337 LDA ENTIER2B 
257 Re * 338 STA (INDEX2B),Y 
258 * TABLE2 <== 3 * ENTIER2 + TABLEO * 339 
259 * 340 A nm * 
260 341 * NEXT J (boucle interne) , J <== J - 1 * 
261 INTERNE LDY 4#$00 342 * INDEX2 <== INDEX2 - 2 
262 LDA (INDEX2B),Y ;lecture de ENTIER2H ASS CEE cm ds 
263 STA TABLE2H ;copie de ENTIER2H en TABLE2H 344 
264 STA ENTIER2H ;et sauvegarde en ENTIER2H 345 SEC 
265 INY 346 LDA INDEX2B ; INDEX2B <== INDEX2B-2 
266 LDA  (INDEX2B),Y ;lecture de ENTIER2E 347 SBC #$02 
267 STA TABLE2B ;copie de ENTIER2B en TABLE2B 348 STA INDEX2B 
268 STA ENTIER2B ;et sauvegarde en ENTIER2B 349 BCS INTERNE ;si pas de retenue 
( 269 ASL ;A contient 2*ENTIER2B; 350 DEC INDEX2H ;INDEXZ2H <== INDEX2H-1 
270 ROL TABLE2H ;TABLE2H <== 2*ENTIER2H+#report 351 BCC INTERNE ;branchement inconditionnel 
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Récapitulation 
‘TRI. CHAINE.C’ 


Après avoir saisi ce code sous 
moniteur, vous le sauvegarderez par 
BSAVE TRI.CHAINE.C,A$7000,L$D7 


7000- 20 67 DD 20 52 E7 20 BE 
7008- DE 20 E3 DF 20 6C DD 38 
7010- 85 08 E9 03 85 06 84 09 
7018- 98 E9 00 85 07 20 BE DE 
7020- 20 E3 DF 20 6A DD AO 00 
7028- 84 9A 98 91 83 C8 84 9B 
7030- 98 91 83 18 A5 50 DO 02 
7038- C6 51 C6 50 DO 19 A5 51 
7040- DO 15 60 E6 9B DO 02 E6 
7048- 9A A5 9A AO 02 91 1B A5 
7050- 9B C8 91 1B 18 90 DD A5 
7058- 08 69 03 85 08 90 03 E6 
7060- 09 18 A5 83 85 1B 69 02 
7068- 85 83 A5 84 85 1C 69 00 
7070- 85 84 AO 02 B1 08 99 93 
7078- 00 88 10 F8 AO 00 B1 1B 
7080- 85 1A 85 1D C8 B1 1B 85 
7088- 19 85 1E OA 26 1A 65 19 
7090- 90 03 E6 1A 18 65 06 85 


Branchez un 


disk J[ sur 
le //e 






Bruno 
Fénart 


Suivant le principe cher à Apple 
de l'incompatibilité minimale, 
l'Apple //c ne pouvait utiliser que 
des lecteurs spécifiques, alors 
que la différence avec les disk ][ 
est minime, en dehors de la 
présentation. Comme bien 
souvent en informatique, le 
problème se résume à une 
question de connexion. 


Le montage ci-dessous — peut-on 
parler de montage considérant la 
simplicité — a donc pour objet 
d'autoriser le branchement de 
votre lecteur d'Apple ][+ ou //e 
sur votre nouveau //c. Avec un //c 


inusee 


disk] 


7098- 19 A5 1A 65 1D 18 65 07 
70A0- 85 1A A0 02 B1 19 99 96 
70A8- 00 88 10 F8 C8 C4 96 FO 
70B0- 92 C4 93 FO OA B1 97 D1 
70B8- 94 90 88 DO 02 FO ED A0 
70C0- 02 A5 1D 91 1B C8 A5 IE 
70C8- 91 1B 38 A5 1B E9 02 85 
70D0- 1B B0 A9 C6 1C 90 A5 


Récapitulation 
‘TRI.PRO.INIT.C’ 


Après avoir saisi ce code sous 
moniteur, vous le sauvegarderez par 
BSAVE TRI.PRO.INIT.C,A$300,L$69 


0300- A9 01 20 F5 BE FO 08 A9 
0308- 0E 20 OC BE 4C DO 03 8D 
0310- F7 03 AA 4A 4A 4A 4A 18 
0318- 69 BO 8D 64 03 8A 29 0F 
0320- C9 0A 30 03 18 69 07 69 
0328- B0O 8D 65 03 A9 00 8D F6 
0330- 03 A0 00 B9 50 03 99 00 
0338- 02 C8 C9 8D DO F5 20 03 
0340- BE 90 OC 20 09 BE AD OF 





équipé du kit Unidisk, vous 
pourrez brancher votre disk ][ en 
série avec l'Unidisk 3.5 (se 
référer au manuel Unidisk 3.5). 


Pour cela, il suffit de réaliser une 
liaison entre le câble plat du 
lecteur et le connecteur du lecteur 
de disquette qui se trouve sur la 
face arrière du //c. 


Le montage 


Il convient de se reporter au 
schéma de branchement car la 
différence des numérotations 
normalisées pour les connecteurs 








0348- BE 20 OC BE 4C DO 03 60 
0350- C2 CC CF C1 C4 D4 D2 C9 
0358- AE C3 C8 C1 C9 CE C5 AE 
0360- C3 AC C1 A4 B0O BO BO BO 
0368- 8D 











Récapitulation 
‘TRI.DOS.INIT.C’ 


Après avoir saisi ce code sous 
moniteur, vous le sauvegarderez par 
BSAVE TRI.DOS.INIT.C,A$300,L$63 





















0300- A0 03 38 A5 73 E9 D7 85 
0308- 50 8D F6 03 20 2D 03 A5 
0310- 74 E9 00 85 51 8D F7 03 
0318- 20 2D 03 20 8C F2 B9 4A 
0320- 03 99 00 02 C8 C9 8D DO 
0328- F5 20 CD 9F 60 AA 29 0F 
0330- 20 3C 03 8A 4A 4A 4A 4A 
0338- 20 3C 03 60 18 C9 OA 30 
0340- 02 69 06 69 BO 99 5E 03 
0348- 88 60 C2 CC CF C1 C4 D4 
0350- D2 C9 AE C3 C8 C1 C9 CE 
0358- C5 AE C3 AC C1 A4 00 00 
0360- 0000 8D 




























































































Berg et DB complique les choses. 
Attention, si ce montage est 
simple à réaliser, toute erreur 
risque d'être fatale. L'interface 
lecteur de disquettes de l'Apple 
/Ic est bien moins protégée que 
l'interface des ][+ et //e, elle ne se 
relèverait pas d'un court-circuit. 
Le branchement entre le câble du 
lecteur et votre montage ne 
comporte pas de détrompeur ; 
veiller à ce que les câbles plats 
des deux connecteurs 2X10 
partent dans des directions 
opposées. 


























s 
; 


Le manuel du DOS donne le 
schéma des circuits de l'interface £ 
et de la carte analogique du disk : ‘8 
JT (avec toutefois une erreur sur le 5 
signal RDDATA qui est inversé). 
Côté Apple //c, le manuel de 
référence donne les valeurs des 
signaux de chacune des broches 
du connecteur externe. Il suffisait 
de comparer ces tables et d'en 
déduire le branchement 
nécessaire. 


Connecteur du 
lecteur externe É 
(face arrière du //c) : 








connecteur 


Prise mâle 
DB19 
à sertir 


Matériel 


Connecteur mâle type DB19 à sertir, 
Connecteur mâle Berg 2X10 à sertir, 
Câble plat 19 fils. 


: 1 Nappe 19 fils 


Vue côté 
sertissage 


Connecteur 
Berg Mâle 
PR Te ARR AR ed à sertir 


‘Connecteur DB19 Câble plat Connecteur 
! (vers le //c) . 19fils . BERG 2X10 





E 7 TPE AT 
11 EN ot : Connecteur 
E 2 ie 3 +: 3 ! © du drive 
! à £ ! «© + 
! 12 PR a ES ! 2, 
i : ; ; v € 
3 * € a s ! : 
: RE ! = S Vers le disk][ 
! 13 RS NT 2 6 ; o 
pl . . : 
! 4 CET ! 
| 14 ie 6 »: Û 
[es + 9 +: 9 ! 
! 15 + 10 — : 10 ! 
! 6 Le 11 =: 1120 Sn 
NOT) RTS RER ES Broche 
| À £ H H en ÿ 
on RS ni du //c Signal Description 
É 17 RÉ CPE Ce A RO DE LE à Du DE DO OS US RU SE ne 
; ‘ F : : . 
Me Labo T2 1.232 GND : Masse signal et alimentation 
! 18 I 16 æ: 16 NT : : 
; H n ! . _ 
! NC. Le IS NE nl » à 12V 
! : à î : 
! 19 + 18 +. 18 ee: 6 :  +5Y (Vec) 
' : : ' 1 G 
: 10 : aa m2 20 E E 7,8 : +12V 
ÿ (N.C. = non connecté ! ! 2 5 : Es 
litéconnessense ee RER En TES 9 : EXTINT*  : Interruption externe (non utilisée) 





10 WRPROT : Écriture protégée (entrée) 
11-14 : SEEKPHO* : Phase O à 3 du moteur du bras 

15  !  WRREQ : Demande d'écriture 

16 - non connecté 

17 ! DR2#(DR1) : Sélection du disque 2 ou 1 

18 RDD AT A Lecture des données (entrée) 

19  : WRDATA  : Écriture des données (sortie) 


(# = actif niveau bas) 


N.D.LR. : Est-il nécessaire de 
préciser ici que ce type d’inter- 
vention sur votre matériel exclut 
tout recours à la garantie du 
constructeur en cas de pro- 
blème ? Contrôler avec atten- 
tion votre montage avec les 
tableaux de connexion des fils 
évitera les soucis. 








PRINiu81811@ "7 …INVERSE : 


Le laser a encore frappé ! CS RE NORMAT: 


La ligne 1010 du programme ‘Analyse Multicritère' de Pom's 24 présentait INPUT " "; C3$ : IF 
en effet tous les symptômes d'une grande confusion. Il fallait lire : LEN (C3$).… 
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EE à 


ES 


ze 


Courbes fractales, suite‘. 


à 


Le numéro 22 de Pom's a 
présenté, pour les possesseurs de 
Macintosh, un thème abordé en 
classe de 1ère S. Les deux 
programmes listés ci-dessous 
permettent une représentation sur 
l'Apple // de la courbe de Koch 
pour des niveaux n variant de un à 
six (limite de définition HGR). 


Rappelons ici que la particularité 
de cette courbe lorsque n = + est 
d'avoir une longueur infinie et de 
délimiter une aire finie. 


Le type de construction de cette 
courbe conduit à utiliser un 
langage autorisant les procédures 
récursives, ici Pascal. 


Le tracé se fera à l'écran 
(programme FLOCON) ou sur 
traceur CGP 115 de Radio Shack 
(programme FLOCTRAC), ce 
dernier programme étant facile à 
adapter à tout autre traceur. Pour 
varier les plaisir, il est possible de 
remplacer +60 par -60 et -60 par 
+60 dans la procédure VKOCH. 


G 


La méthode : 


Vous n'avez pas la disquette 
d'accompagnement : il vous faut 
saisir et compiler les listings de 
façon classique. 


Vous avez la disquette 
d'accompagnement : 

Il faut initialiser une disquette 
Pascal à l'aide du ' FORMATER, 
puis il faut lancer le programme 
‘BASIC-PASCAL'de la 
disquette Pom's. Il suffit de 
transférer les fichiers TEXT en 
suivant les indications données 
par ledit programme. 

Il convient alors de compiler et 
d'exécuter comme 
habituellement. 


J.-P. Sorribas 


Programme ‘FLOCON.TEXT” 


PROGRAM FLOCON; 
USES TURTLEGRAPHICS, TRANSCEND; 
CONST BASE1=150; 


VAR N,I,ANGLE:INTEGER; 
CAR : CHAR; 


PROCEDURE DEBUT; 
BEGIN 
INITTURTLE; 
PENCOLOR (NONE) ; 
MOVETO{(50, 150) ; 
PENCOLOR (WHITE) ; 
END; 


PROCEDURE COTE (BASE, DIRECTION : INTEGER) ; 
BEGIN 





IF DIRECTION>=0 THEN DIRECTION:=DIRECTION MOD 360 
ELSE DIRECTION:=-((-DIRECTION) MOD 360) 


TURNTO (DIRECTION) ; MOVE (BASE) ; 
END; 


PROCEDURE VKOCH (BASE, DIRECTION, NIVEAU :INTEGER) ; 


BEGIN 
IF NIVEAU=1 THEN COTE (BASE, DIRECTION) 
ELSE 
BEGIN 
VKOCH(BASE DIV 3,DIRECTION, NIVEAU-1}; 


VKOCH(BASE DIV 3,DIRECTION+ANGLE, NIVEAU-1) ; 
VKOCH(BASE DIV 3,DIRECTION-ANGLE, NIVEAU-1) ; 


VKOCH(BASE DIV 3,DIRECTION, NIVEAU-1}); 
END; 
END; 


BEGIN 
REPEAT 
TEXTMODE ; 
WRITE ("NIVEAU ? ');READLN(N); 
IF N>0 THEN ANGLE:=60 
ELSE BEGIN. ANGLE :=-60;N:=-N;END; 
DEBUTF; 
FOR I:=0 TO 2 DO VKOCH(BASE1, -120*I,N); 
READ (CAR) ; 
UNTIL CAR="'F'; 
END. 
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ms | 


Programme FLOCTRAC.TEXT “%*? "è 


retira 


PROGRAM FLOCTRAC; 





USES TRANSCEND; 


CONST BASE1=480; 
PI=3.14159265; 


VAR N,I:INTEGER; % 
CAR: CHAR; dia 
LST:INTERACTIVE; 

PROCEDURE COTE (BASE : INTEGER; DIRECTION:REAL) ; 

BEGIN 


WRITELN (LST, "'J', (BASE*COS (DIRECTION) ) :6:3,',',BASE*SIN(DIRECTION) :6:3); 
{trace d'un segment en coordonnees relatives} 
END; 


PROCEDURE VKOCH (BASE : INTEGER; DIRECTION:REAL;NIVEAU:INTEGER) ; 


BEGIN eee. 
IF NIVEAU=1 THEN COTE (BASE, DIRECTION) 
ELSE 
BEGIN 
VKOCH (BASE DIV 3,DIRECTION, NIVEAU-I); 
VKOCH (BASE DIV 3,DIRECTION+PI/3,NIVEAU-1); 
VKOCH (BASE DIV 3,DIRECTION-PI/3,NIVEAU-1); 
VKOCH (BASE DIV 3, DIRECTION, NIVEAU-I1); 
END; 
END; 


Fe 
BEGIN 2e 
REWRITE (LST, 'PRINTER:'}); 
WRITELN (LST, CHR(9),'7B'); {interface SSC reglee pour 600 bauds} 
WRITELN (LST,CHR(18)); {mise en mode graphique} 


WRITE ('NIVEAU ? ');READLN(N); 


WHILE N<>0 DO DOS, ProDOS, Pascal ? 
BEGIN 
WRITELN (LST, "MO, ',-BASE1 DIV 3); {deplacement absolu} dé F 
WRITELN (LST, 'l'); {fixation de l'origine} Les disquettes qui accompagnent 
FOR I:=0 TO 2 DO VKOCH(BASE1,-2*PI/3*I,N); facultativement Pom’s sont en- 
WRITELN (LST, "MO, ',-BASE1); registrées sous format DOS, car, 
WRITELN(LST, 'l'); en effet, il nous faut penser aux 
WRITE ('NIVEAU ? ‘');READLN(N); nombreuses machines qui ne 
END; peuvent utiliser ProDOS ou Pas- 
WRITELN (LST,CHR(17)); {retour au mode alphanumerique} cal. 
CLOSE (LST) ; Certains programmes, par essen- 
ce, ne sont pas utilisables sous 
END. ProDOS (Patches au DOS 3.3 par 


exemple) et donc ne doivent être 

convertis. 

D’autres ne présenteraient aucun intérêt à être utilisés sous ProDOS (le jeu SNAKE de Pom’s 24, par exemple). 

Enfin les programmes qui peuvent ou doivent fonctionner sous ProDOS, seront transférés sur une disquette Pro- 

DOS. Pour cela, deux solutions se présentent : 

* utiliser le programme CONVERT qui est sur l’une des disquettes système ; 

° utiliser la disquette ‘Utilitaires //c”, dans l’option COPIER qui permet de copier des fichiers depuis des disquettes 
DOS sur des disquettes préalablement formatées ProDOS. 





Les fichiers Pascal se trouvent sur la disquette Pom’s également en format DOS. Ils seront transférés sur votre dis- 
quette Pascal fraîchement formatée, grâce au programme Basic-Pascal de la disquette Pom’s. 
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Visions d’Hyperespace 


Aujourd'hui, les espaces à grand 
nombre de dimensions sont 
rencontrés partout de la 
psychologie à la physique 
théorique, de la science-fiction à 
l'informatique. Pourtant, depuis 
le raz-de-marée de vulgarisation 
scientifique lié au centenaire de la 
naissance d'Albert Einstein en 
1979, il semble que le concept 
d'hyper-espace reste lié, dans 
l'esprit de chacun, à celle du 
temps. 


Sur le plan purement mathé- 
matique, ce rapprochement n'est 
guère gênant car on ne s'occupe 
pas de l'unité de mesure- (mètre 
ou seconde). Il est cependant bon 
de savoir que la Relativité 
Générale entraîne implicitement 
un univers à quatre dimensions 
puisque" tordu pare. la 
gravitation. 


Le programme TESSERACT va 
faire évoluer un objet 
quadri-dimensionnel sur votre 
écran, un cube à quatre 
dimensions : ses arêtes ont toutes 
la même longueur, et tous ses 
angles sont droits mais cet objet 
comporte 16 sommets, 32 arêtes, 
24 faces planes et 8 hyperfaces (à 
3 dimensions). Petite question : 
quel est le volume d'un tesseract 
d'un mètre de côté ? 


Pour représenter notre tesseract, 
il n'est pas inutile d'observer 
l'analogie avec un cube vu par un 
être à deux dimensions. Si un 


tesseract venait à passer devant 
nous, nous le percevrions comme 
deux cubes, dont l'un est dans 
une direction perpendiculaire au 
premier, reliés entre eux par 8 
arêtes. 





Notre programme, écrit en 
Applesoft, utilise la particularité 
du tesseract de disposer d'un 
chemin hamiltonien. Cela signifie 
qu'il est possible de parcourir 
toutes ses arêtes sans avoir à 
sauter d'un sommet à un autre. 


L'algorithme retenu évite de 
recalculer la position du tesseract 
après chaque mouvement (car les 
calculs seraient trop longs), et 
fournit un affichage le plus aéré 
possible : 16 des 32 arêtes sont 
toujours verticales ou 
horizontales. 


On peut faire varier la vitesse de 
défilement par le paddle 0; 
l'affichage est gelé par Ctri-S et 
Reset permet de sortir du 
programme. 


Programme ‘Tesseract' “… 


5 REM*** INITIALISATION *** 


Olivier Sotiriades 


Enfin, n'oubliez pas que le 
tesseract a maigri de deux 
dimensions pour arriver sur votre 
écran. Vous pouvez toujours en 
construire un en trois dimensions 
pour l'observer plus 
adéquatement. Ou attendre les 
futures disquettes optiques de 
Pom's destinées à votre écran 
holographique… 


P.S. : La réponse est un volume de 1 x 
1x 1x 1= 1m“ bien sûr! 





Bibliographie : 

Flatland (E.A.Abbott, Présence 
du futur, Denoël) 

La Science et l'Hypothèse 
(H.Poincaré, Flammarion) 

La Quatrième Dimension 
(R.Rucker, Science Ouverte, 


Seuil) 
G 


10 HGR2 : HGR : POKE - 16302,0:F = l: HCOLO 
R= 3:V = .01: PRINT CHR$ (17): ONERR G 
OTO 480 
20 X1 = 1:X2 = 199:X3 = 80:X6 = 186:Y1 = 1:Y2 
= 136:Y3 = 55:Y6 = 110:K = .3 
JO C1 =. 5°C2 = = ,5:C3 = 0 .9:C6 =) ,5:DI = 
0: D2 me, 0 Dm 00, OS DE 9 DKU = 
01 


35 REM *** MISE À JOUR DES VARIABLES LIEES 


40 L1 = X2 - X1:X4 = X3 + Ll:L2 = INT (L1 * 
KO HS) EX XOMD LO X7 mL KE TO INT (C(XS 
= AI) K} EXO =) X/0F L? 

50 M1 = Y2 - Y1:Y4 = Y3 + M1:M2 = INT (M1 * 


NT) IX YEN Yom YS OR INT ( (YS 
LL) RE Te eV) M2 
60 IF K > = l THEN DK = - ,01 
70 IF K < = .25 THEN DK = .01 
80K=K+DK*F 
85 REM #*** TRACAGE *** 
90 HPLOT X1,Y3 TO X2,Y3 TO X2,Y4 TO X6,Y8 TO 








100 


110 


120 


125 


130 
140 
150 
160 
170 


180 
190 
200 
210 
220 
230 
240 
250 


260 
270 
280 
2390 
300 
310 
320 
330 


340 
350 
360 
370 
380 
390 
400 
410 


420 
430 
440 
445 
450 












X8,Y6 TO X4,Y2 TO X2,Y4 TO X1,Y4 

HPLOT TO X1,Y3 TO X3,Y1 TO X4,Y1 TO X4, 
Y24TO K3,Y2 TOYX3,/Y1/TO X7,Y51TO X8,Y5 
HPLOT TO X4,Y1 TO X2,Y3 TO X6,Y7 TO X8, 
YSITO/X8;X6 TO"X7,Y6 TO X7;Y5 0TO/X5,Y7 
HPLOT TO X6,Y7 TO X6,Y8 TO X5,Y8 TO X7, 
Y6 TO /X3,; Y20TOX1,Y4 TO XS/YS TOXS, VTT 
O X1,Y3 


REM ***% MISE À JOUR DES VARIABLES LIBRE 
S **+* 


IF X1 < = 1 THEN C1 = .5: GOTO 160 

IF X1 > = 200 THEN C1 = - .5: GOTO 160 
Cm CON (I DRE > RND ICT); 
XI = X1+C1*F 

IF X2 < = X1 + 40 THEN C2 = .5: IF X2 < 

278 THEN 200 

IF X2 > = 278 THEN C2 = -— .5: GOTO 200 
Cm CL IN ZEN VEN RND (1)))) 
X2 = X2+C2*F 

IF X3 < = 1 THEN C3 = .5: GOTO 240 

IF X4 > = 277 THEN C3 = - l: GOTO 240 
Cm CFA EI 2 AN (V > RND:(T)})) 
X3= X3+C3*F 

IF X5 < = 2 OR X7 < = 2 THEN C6 = l: G 
OTO 280 

IF X8 > = 276 THEN C6 = - 2: GOTO 280 
CEm COS (LL ZEN (VI> MRND (I) "):) 
X6=X6+C6*F 

IF Y1 < = 1 THEN D1 = .5: GOTO 320 

IF Y1 > = 130 THEN D1 = - .5: GOTO 320 
DIV = DIN EI SE ZOO N (VE > CRNDU(T))}) 


Y1-=-Y1-+-D1S#-F ; 

IF Y2 < = Yl + 30 THEN D2 = .5: IF Y2 < 
190 THEN 360 

IF Y2 > = 190 THEN D2 = - .5: GOTO 360 

D2 = D2 # (1 — 2% (V >" RND (1))) 


Y2=Y2+D2*F 

IF Y3 < = 1 THEN D3 = .5: GOTO 400 

IF Y4 > = 189 THEN D3 = - 1: GOTO 400 
D3 = D3 * (1 - 2 * (V > RND (1))) 
Y3=Y3+D3*F 

IF Y5 < = 2 OR Y7 < 
OTO 440 

IF Y8 > = 188 THEN D6 = - 2: GOTO 440 
Dé= DE * (1 2 20 (V > RNDO(1)))) 

Y6 = Y6+D6*F 

REM *** INTERVERSION DES PAGES HGR *** 
W = NOT W: POKE - 16299 - W,0: POKE 230 


= 2 THEN D6 = l: G 


,32 + 32 * W: CALL 62450 


Une erreur s'est glissée dans l'article de 


455 


460 


470 
475 


480 
490 


500 


510 


520 


530 


540 


550 


560 


570 


580 


590 
600 


610 


620 


630 


640 


650 


660 


670 
680 


690 


Pascal Cantot, ‘le Kit 65C02’ paru dans le 
Pom's 


Erratum 


numéro 24. 


En effet, 

les instructions TRB, TSB et BIT (adressage 
immédiat) ne recopient pas les bits 6 et 7 
mais, en revanche, positionnent uniquement 
le bit Z. Plusieurs ouvrages traitant du 65C02 
ont commis la même erreur. 

Merci à Daniel Mueller d'avoir lu avec 
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attention la documentation NCR. 








REM #*** PERMET DE FIGER L'IMAGE PAR CT 
RL-S ET DE MODIFIER LA VITESSE DE MOUVEM 
ENT DU TESSERACT PAR PDL(0) *** 


HTAB 1: VTAB 1: PRINT " ": IF PDL (0) < 
> 255 THEN F = PDL (0) / 51 

GOTO 40 

REM *** TRAITEMENT DES (RARES) SORTIES 


DE LA FENETRE HGR *** 

REM 

PRINT Xe "” D "” mX3;: "” ".X4;: "” Neyss LEE LL 
:X6:" "°X7;" ".X8 

PRINT Y1 sn" Y2;:" ". Y3; nm" Y4; mme Y5; mo" 
SY6E;" Mey7en n°Y8 

PRINT C1;:" ">: C2; mm C3; n m.C6 

PRINT D1;" ";D2;" ";D3;" ";D6 


IF X4 > 279 THEN X2 = X2 — 1:C2 = — .5: 
X3 = X3 - 1:C3 = — ,5:X4 = X4 — l: GOTO 
530 


IF X5 < O THEN.XI1 = X1 + 1:C1 = .5:X6 = 
X6 + 1:C6 = .5:X5 = X5 + l: GOTO 530 
IF X7 < O0 THEN X3 = X3 + 1:C3 = .5:X6 = 
X6 + 1:C6 = .5:X7 = X7 + 1: GOTO 530 


IF X8 > 279 THEN X6 = X6 - 1:C6 = -— ,5: 
X2 = X2 —- 1:C2 =  —",5:X3 = X3 -— 1:C3 = 

— .5: GOTO 530 

IF X1 < O0 THEN X1 = 0:C1 = .5: GOTO 530 

IF X2 > 279 THEN X2 = 279:C2 = - .5: GO 
TO 530 

IF X3 < O0 THEN X3 = 0:C3 = .5: GOTO 530 

IF X6 > 279 THEN X6 = 279:C6 = - .5: GO 
TO 530 

IF Y4 > 191 THEN Y2 = Y2 —)1:D2 = =. ,5: 


VI = TEE T°D3/ = :5:Y41m Y4— 1: GOTO 
610 

IF Y5 < O0 THEN Y1 = Yl + l:D1 = .5:Y6 = 
Y6 + 1:D6 = .5:Y5 = Y5 + 1: GOTO 610 

IF Y7 < O0 THEN Y3 = Y3 + 1:D3 = .5:Y6 = 
Y6 FF 1:D6 = 5 Y74=1Y7. + 1: IGOTO. 610 

IF Y6)>21914THENNY6 = Y6 — 1:D6 = 5: 
me T2 T2 m2: 130m) Y3 = 12 D3r= 
9 20GO0TO 610 

IF Y1 < O THEN Y1 = 0:D1 = .5: GOTO 610 


IF Y2 > 191 THEN Y2 = 191:D2 = — ,5: GO 
TO 610 
IF Y3 < O THEN Y3 = 0:D3 = .5: GOTO 610 
IF Y6 > 191 THEN Y6 = 191:D6 = - .5: GO 
TO 610 
RESUME 


 E.P.E. 5.0 


Pour lister les programmes Basic 
eén avant et en arrière, pour 
modifier, insérer, supprimer des 
caractères sur tout l'écran, sans. 
relire les lignes, pour 
rechercher toute chaîne de 
caractères, sous DOS et ProDOS, 
en 40 et 80 colonnes, sur Apple 
//e, //e+ et //c.: 


200,00 F franco 
échange 2.0 : 80,00 F 




















Cie des Lip 


40 pistes sous ProDOS 


Intéressé par les articles sur le 
formatage 40 pistes, j'ai tenté 
d'adapter les patches sous 
ProDOS. 

Dans le “Beneath Apple 
ProDOS", des modifications de 
Filer et de ProDOS sont 
proposées, mais les essais furent 
sans succès. Peut-être y a-t-il un 
bug ? J'ai alors essayé de 
modifier le source de l'"init 
ProDOS" du numéro 20 de 
Pom's mais, à chaque fois 
j'obtiens un 1/0 ERROR bien 
qu'ayant modifié : 

° le nombre de piste ; 

+ le Bit Map; 

+ le Gap3. 


Quelle est la solution ? 
P. Buschini - 75020 Paris 


Vous avez raison de signaler une 
erreur dans le patch proposé par 
Beneath Apple ProDOS. Dans le 
courrier des lecteurs du numéro 
23 de Pom's, J. Rey indiquait les 
modifications adéquates. Il 
indique également celles à faire 
pour CONVERT ainsi que pour 
les nouvelles versions du FILER 
et de ProDOS (version 1.1.1). 


Les modifications que vous 
apportez au programme INIT 
d'Alexandre Avrane sont 
correctes, mais il faut également 
modifier ProDOS. En effet, INIT 
utilise ProDOS pour vérifier que 
le disque est bien formaté. Si on 
ne modifie pas ProDOS, on 
optient un ]/O0 ERROR quand on 
veut vérifier un bloc au-delà du 
n° 280. La modification du Gap3 
est par contre inutile, sauf si votre 
disque est trop rapide. 

Les modifications à faire sont les 
suivantes : 


Source INIT. CODEO.S 


ligne 318 CMP #40 

(au lieu de 35) 
ligne 655 : LDY #$27 

(au lieu de $22) 


ligne 756: $40 
(au lieu de $18) 


Objet INIT.CODEO 


$223F: 28 (au lieu de 23) 
$2491: 27 (au lieu de 22) 
$254D: 40 (au lieu de 18) 


Objet INIT 


$2240: 28 (au lieu de 23) 

$2492: 27 (au lieu de 22) 

$254E: 40 (au lieu de 12 ou 18) 
Notons ici que sur la disquette d'accom- 
pagnement, cet octet a la valeur $12, ce 
qui est incorrect ; la bonne valeur étant 
$18. 


Rappelons les modifications à 
apporter à ProDOS : 


ProDOS 1.0 

520D: 40 (au lieu de 18) 
ProDOS 1.1.1 

56E3: 40 (au lieu de 18) 


Attention, même si le formatage 
se passe bien, certaines pistes 
peuvent être "recouvertes" par les 
dernières pistes (le bras du lecteur 
fait alors un bruit similaire au 
recalibrage), entrainant des 
erreurs par la suite. Utilisez 
l'option "vérifier volume" de 
FILER ou d'Utilitaire System 
avant d'utiliser le volume. En cas 
de problème, réduisez le nombre 
de pistes. 


INIT et CMDLINK 


N'y aurait-il pas un bug dans 
l'article "AIG ProDOS" (Pom's 
20) ? 

Dans le programme CMDLINK, 
il me semble qu'il faille remplacer 
la ligne 30 par : PRINT D$ 
"BLOAD”" C$ "CODE, A$ 
2100". D'autre part, je n'ai pas 
compris l'utilisation de INIT. Le 
fichier INIT après intégration par 
INITLINK et CMDLOAD (après 
correction) est de type CMD, 
donc non exécutable. Sur la 


disquette, il est de type BIN et 
fonctionne normalement. 


L. Fontaine, 72100 Le Mans 


Votre correction du programme 
CMDLINK est parfaitement 
exacte ; le suffixe est bien 
"CODE" et non pas ".LOAD". 
Vous avez également raison en ce 
qui concerne le programme INIT 
obtenu, qui est de type 
ComManDe, donc pas 
directement exécutable (il faut le 
charger puis faire CALL 8192). 
Sur la disquette d'accompagne- 
ment, INIT est de type BINaire 
ce qui simplifie le problème. 
Vous pouvez obtenir le même 
résultat avec CMDLINK en 
remplaçant, aux lignes 45 et 50, 
"T$FO0" par "TBIN”. 


EXEC en Pascal 


Je n'ai pas réussi à utiliser les 
fichiers EXEC en Pascal (UCSD 
1.2). Le manuel de référence ne 
comporte pas d'indications sur la 
commande ‘M' du menu 
principal, et le Pom's numéro 3 
ne m'a pas été d'un grand 
SeCOurs. 


M. Frank LOPATNIK, 75005 
PARIS 


Voici la méthode : 


+ Création du fichier EXEC en 
mode direct : 


M pour Make Exec 
TEST nom du fichier Exec 
Y en réponse à la question : 


Terminator=% Change it ? 
$$ 


F | Les ordres tapés 

L | ainsi se retrouvent 

: | dans le fichier TEST 
RETURN | tout en étant 

Q | exéculés. 

$$ Fin de l'enregistrement 


L'utilité d'avoir deux ‘%' est 
d'éviter de terminer un 
enregistrement alors que, par 
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exemple, on est dans l'éditeur 
et qu'on veut entrer “13%”. 
Bien entendu, un fichier EXEC 
ne pourra comporter deux '%' 
consécutifs -ce qui est 
rare-, sauf à changer alors le 
'terminateur". 


+ Création ou modification du 
fichier EXEC par l'éditeur : 
Comme on le voit en éditant 
TEST, il suffit de commencer 
par UN ‘'%' et de terminer par 
QUATRE ‘%'. 


+ Exécution au clavier 


Pour exécuter tout fichier, il 
faut taper X. Ici, au lieu de 
mettre TEST -ce qu'on aurait 
fait pour TEST.CODE-, il 
faut rentrer EXEC/TEST. 


+ Exécution depuis un pro- 
gramme : 
Pour exécuter tout fichier, il 
suffit d'employer le 


SETCHAIN de CHAIN- 
STUFE. Donc : 


SETCHAIN ('TEST') pour 
lancer TEST.CODE et 
SETCHAIN ('EXEC/TEST') 
pour un fichier EXEC. 


+ Limitation des fichiers EXEC : 


Il n'est pas possible de les 
‘nester’. Ils ne peuvent 
contenir de Ctrl-@, Ctri-A, 
Ctri-Z, etc. Si le fichier EXEC 
lance un programme et que 
celui-ci fait un READ ou un 
READLN, il ira chercher dans 
le fichier EXEC, alors que s'il 
fait un UNITREAD ou 
KEYPRESS, il ira chercher au 
clavier (comme en Applesoft 
avec GET ou INPUT d'une 
part, et PEEK(-16384) d'autre 
part). 


Décrypteur 


Plusieurs lecteurs nous ont 
signalé un problème avec l'option 
‘échange de bits’ du Décrypteur 
(Pom's 21). 

Il s'agit en fait plutôt d'un 
problème d'ergonomie, le 
programme fonctionnant norma- 
lement. Le problème (plantage) 


survient en fait lorsqu'on lance 
plusieurs fois de suite l'option 
échange de bits par un espace au 
lieu de RETURN. En effet, 
‘espace’ incrémente l'octet 2, ce 
qui est commode pour les options 
ET, OÙ ou EXCL car le filtre est 
alors pour l'octet 2 : 09 (ORA), 
29 (AND) et 49 (EOR). 


Dans l'option ‘échange de bits’, 
le filtre est 20 (jmp) 6D 10 et 
incrémenter plusieurs fois l'octet 
2 ne peut conduire qu'à des 
problèmes 


et le //c ? 


Je possède un Apple /Ic et il me 
semble que cette machine n'est 
pas bien considérée par votre 
rédaction, certaines allusions le 
montrent. Bien sûr, les 
possesseurs de /Ic ne représentent 
pas la majorité de votre lectorat 
mais ils n'ont pas moins envie de 
connaître leur machine. Voici 
quelques questions : 

+ Comment modifier le ‘Hard 
Copy de la page HGR étendue’ 
pour qu'il fonctionne sur le IIc. 

+ Sous ProDOS, si je charge 
GRAFO de ToolKïit à l'adresse 
$9500, j'obtiens : No Buffer 
Avalaible. Comment y remédier, 
je n'ai pas trouvé la réponse dans 
ProDOS technical reference 
manual 


+ P-FORMAT fonctionne-t-il sur 
le lc ? 

+ Pour COGO, vous précisez 
que sur un /Ic, l'affichage se fait 
en simple haute résolution, une 
version /Ic est-elle prévue ? 


M. Bouland 
77300 Fontainebleau 


Non, nous ne délaissons pas le 
/Ic. Au contraire, nous nous 
efforçons de modifier les 
programmes pour qu'ils 
fonctionnent sur toutes les 
machines : EPE a ainsi été adapté, 
le composeur téléphonique, le 
Basicium. Nous continuons dans 
cette voie mais il s'agit là d'un 
problème délicat car les machines 
ne se laissent pas toujours faire. 


+ Le programme de Hard Copy 
fonctionne sans modification : la 














précision de l'auteur, concernant 
le SEI n'est à prendre en compte 
que pour une utilisation 
simultanée de la souris. Si le 
programme n'imprime pas, il ne 
peut s'agir que de la position des 
‘switches'. Il convient de noter 
qu'il ne faut pas faire BRUN 
HARD, mais BLOAD HARD, 
AS$ 4000, puis CALL 16432 
(basic) ou 4030G (moniteur). 


Plus simplement, vous pouvez 
utiliser le programme Basic 
COPIE. 


+ La réponse se trouve bien dans 
ProDOS technical reference 
manual, annexe A.2.1 page 118. 


+ P-FORMAT fonctionne sur le 
/Ic, maïs l'éditeur de police qui y 
est adjoint n'est pas utilisable. 
Nous étudions la modification. 


+ COGO fonctionne aujourd'hui 
normalement sur le //c, c'est le 
résultat de nos efforts. 


Les 64 Ko, le DOS 


Comment faire pour utiliser les 
64 Ko de la carte 80 colonnes 
étendue en Basic, et comment 
faire pour enlever le DOS d'une 
disquette ? 


P. Mykiéta - 92230 Gennevilliers 


Le plus simple et le plus pratique 
est de les utiliser comme disque 
virtuel : en ProDOS (/RAM), 
sous DOS 3.3 (Pom's 12, 14 et 
16), sous CP/M (Pom's 24). 
Autrement, il faut utiliser le 
langage machine et jongler avec 
les switches et/ou utiliser le 
sous-programme XFER ($CFCD 
pour le //c, $C3B0 pour le //e). 


Pour enlever le DOS d'une 
disquette DOS 3.3 il faut, à l'aide 
d'un éditeur de secteurs, indiquer 
dans la VTOC que les pistes 1 et 
2 sont libres (récupérer la piste O 
est plus délicat). Voici comment 
faire : 

Piste $11, secteur $00, octets 
$3C, $3D et $40, $41, remplacer 
00 00 par FF FF. 

En ProDOS, il suffit de 
supprimer les fichiers ProDOS et 
BASIC.SYSTEM. ei 
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Micro-informations 


Apple ne s'exclut plus de l'univers IBM 
et mitonne quelques nouveaux produits de 
son cru : Voici la tendance régnant à 
Cupertino. Tendance précisée en juin, 
par Jean-Louis Gassée, le vice-président 
en charge des nouveaux produits, de 
passage dans son fief français pour cause 
d'Apple Expo. Jean-Louis Gassée a donc 
donné des détails importants sur le 
positionnement d'Apple, et sur le 
contenu de la hotte des Pères Noëls de 
Cupertino. Voici l'occasion de faire le 
point sur les nouveaux projets. Le 
présent d'Apple est aux processeurs 16 
bits et à la coexistence avec IBM, son 
avenir lié à celui des communications. 


Le nouvel Apple // 


Le présent commence pour Apple avec la 
sortie de l'Apple // version 16 bits. Car, 
paradoxalement, le récent succès du 
Macintosh Plus (on recense selon 
Jean-Louis Gassée une base installée de 
750 000 Macs de tous types) pose 
quelques problèmes. C'est que, 
parallèlement, le vénérable Apple // qui 
faisait les choux gras de la firme à la 
pomme, se vend de moins en moins. Or, 
si Apple a pu entrer dans les usines, les 
universités et les commerces, c'était bien 
grâce au //, transformable au gré de 
l'utilisateur, en oscilloscope, en machine 
à apprendre, ou en caisse enregistreuse. 
Il était donc urgent de le mettre au goût 
du jour. Ce sera bientôt chose faite. 
Jean-Louis Gassée a implicitement 
confirmé toutes les rumeurs sur ce nouvel 
Apple sauf les dates officielles de sa 
sortie. 

Résumons pour les lecteurs de Pom's : le 
nouveau // est muni d'un processeur 
65C816, tournant à 2,5 Mhz en 16 bits, 
capable d'adresser 16 Mega-octets de 
mémoire vive (4 Megas seront 
directement installables dans la 
carrosserie du // new look). Mais ce 
processeur peut aussi fonctionner en 8 
bits, émuler le 6502 des actuels Apple // 
et utiliser ainsi tous les logiciels 
développés pour celui-ci. Physiquement, 
le dernier né d'Apple se présente comme 
un vulgaire IBM en trois éléments : 
unité centrale, clavier détachable et 
moniteur de visualisation. Parmi ses 
caractéristiques : une belle résolution 
graphique (et en 16 couleurs s'il vous 
plaît), permettant notamment un 


affichage de 200x320 points; un 
nouveau système d'exploitation Prodos 
intègrant un ‘Finder’ style Macintosh, et 
une horloge intégrée. Outre la couleur, 





Jean-Michel Gourévitch 


l'Apple // pourra aussi disposer d'une 
carte sonore extrêmement perfectionnée 
avec synthétiseur à 16 voies. Côtés 
sorties, cet Apple // modèle 1986 
supporte bien entendu le réseau 
AppleTalk, des lecteurs de disquettes 3 
pouces et demi de 800Ko et des lecteurs 
de 5 pouces 1/4. Bref, voici une machine 
performante, s'attaquant aux ordinateurs 
16 bits modernes, style Atari. 


Reste que la clé de sa réussite tient à son 
prix. Car, dès Noël, le marché de 
l'informatique individuelle sera durement 
éprouvé. Des compatibles IBM se 
négocieront vraisemblablement pour 
environ 3 000 Francs, mettant la riche 
bibliothèque de logiciels MS-Dos à la 
portée des utilisateurs familiaux. Amstrad 
s'apprête d'ailleurs à sortir un de ces 
compatibles intégrant notamment le 
système d'exploitation GEM de Digital 
Research (au look si ‘Macintoshien’ 
qu'on avait dû le modifier sous la 
pression d'Apple) pour moins de 6 000 
Francs. Quant à l'Atari, (vendu 10 000 
Francs pour une configuration d'un 
Mega-octet de mémoire vive), il se verra 
appuyé par un grand frère plus puissant 
et devrait encore baisser. Dans ces 
conditions, Apple devra proposer 
quelques autres caractéristiques inédites, 
et jouer serré en matière de tarifs, pour 
vendre le nouveau // sans mordre sur le 
Macintosh. En France, Apple a ainsi 
entamé des manœuvres pour solidifier 
son réseau (en se séparant de certains 
concessionnaires, en distinguant ceux 
appelés à vendre le // de ceux qui 
peuvent aussi fournir le Macintosh, et en 
posant à ces derniers des conditions 
draconiennes, notamment en matière de 
force de vente, et de surface des locaux). 


Aux États-Unis, mêmes procédés 
complétés par des baisses de prix. En 
juillet, le prix du disque dur HD 20 a 
baissé de 300 dollars passant à 1200 
dollars (8 400 Francs au cours du 
change, ça fait rêver, mais le dollar 
‘informatique’ reste plus près de 11 
Francs, ce qui met la bête plus près de 
13 000 Francs chez nous). Et les lecteurs 
de 800Ko du Macintosh et de l'Apple // 
ont baissé de 20% passant à 400 dollars. 
Bref, comme chez Apple on préfère 
réserver la nouvelle gamme Macintosh à 
l'utililisation dans les bureaux, le nouvel 
Apple // ne sera un vrai succès que si la 
configuration complète ne dépasse pas 
ou peu les 10 000 Francs. Pas facile. 


Deux gammes distinctes 


L'une des révélations de Jean-Louis 
Gassée, c'est que les gammes resteront 
séparées. Évaporées, donc les rumeurs 
qui promettaient le fonctionnement des 
programmes du Mac sur le nouveau // : 
«Pas de produits du type couteau suisse» 
a fermement démenti le vice-président. 
On verra donc se développer chez Apple 
dans les deux ans deux gammes bien 
distinctes comportant chacune trois ou 
quatre modèles. Ça, c'est une double 
information : l'Apple // aura au moins un 
petit frère (en comptant dans la gamme 
l'ancien // et le //c). Même chose pour le 
Macintosh, dont la gamme comprendra 
le récent Mac 512Ko avec lecteur de 
800Ko, le Macintosh Plus, le nouveau 
Mac ‘ouvert’, et une autre machine. 
Apple, qui se met à décliner ses gammes 
comme un constructeur automobile, 
proposera ainsi vraisemblablement dans 
chaque ligne un modèle de haut de 
gamme, un extensible, et un portable. 
Message reçu cinq sur cinq : attendez 
vous à voir dans les deux ans un 
Macintosh portable. 


A l'intérieur de chaque gamme, les 
produits obéiront aux règles de la 
compatibilité ‘ascendante’. En clair : le 
modèle le plus perfectionné sera capable 
de lire les programmes de l'ordinateur de 
base. Sur le papier c'est bien beau, mais 
quand on a vécu les problèmes de 
passage du //e au //c, puis du Mac au 
Macintosh Plus, on demande à voir. 


Deux gammes distinctes, donc, mais 
avec des choses en commun. Et d'abord 
les périphériques, les lecteurs 800Ko 
notamment. Bizarrement, c'est en 
suivant les expériences d'utilisateurs 
astucieux qu'Apple aurait découvert que 
les lecteurs Unidisk 3.5 du // pouvaient 
aussi fonctionner sur le Mac. La leçon a, 
en tous cas, été retenue. Quant aux 
disques durs, ils seront aussi communs. 
Là c'est facile : le nouvel Apple // sera 
doté comme le Mac et l'Apple //e d'une 
interface SCSI. Une exception : l'Apple 
l!c, pour lequel l'adaptation d'une 
interface SCSI aurait été trop diélicate. 
Ma prévision : l'Apple //c pourrait bien 
voir son prix baisser considérablement 
Gusqu'à 3000 Francs) et devenir le bas de 
gamme d'Apple. 


La compatibilité par 
l'échange des données 


Revenons aux choses sérieuses. Si les 
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deux gammes d'Apple ne pourront 
s'interchanger les programmes, elles 
pourront se prêter facilement les 
données. «Aujourd'hui, a expliqué Jean 
Louis Gassée, les programmes sont 
pratiquement ‘jetables’. La vraie valeur, 
ce sont les données saisies, qui coûtent 
plus cher que le logiciel, et qu'il faut 
pouvoir récupérer». C'est si vrai 
qu'actuellement, le problème de la 
micro-informatique tient dans le coût de 
ces saisies. Apple propose donc une 
solution. Puisque les lecteurs et les 
disquettes sont communs, on devrait 
donc, avec un utilitaire, pouvoir par 
exemple récupérer sur Excel, dans le 
lecteur d'un Macintosh, des données 
saisies sur AppleWorks et dans le lecteur 
d'un Apple /|, et vice-versa. 


Cette compatibilité des fichiers se 
réalisant sur le lecteur même du 
micro-ordinateur et par lecture directe 
constitue un progrès révolutionnaire. 
Pourquoi ? Parce qu'elle ne s'arrêtera pas 
aux frontières d'Apple. C'est qu'IBM 
vient précisément d'adopter le standard 
de la disquette 3 pouces et demi pour son 
nouveau Convertible, et aussi pour ses 
autres PC. Dans les deux ans, tous les 
logiciels de l'IBM seront donc portés sur 
ces disquettes ainsi que leurs fichiers. 
Gassée ne l'a pas caché : on travaille 
chez Apple sur un utilitaire permettant de 
lire dans les lecteurs du Mac et de 
l'Apple {| les disquettes contenant les 
fichiers de l'IBM, bien que celles-ci 
soient enregistrées avec un format 
différent. Voici la première étape de la 
compatibilité Apple-IBM: celle des 
fichiers. Il est vraisemblable qu'Apple, 
qui a déjà eu du mal à reconnaître que la 
compatibilité des données avec le 
MS-Dos pouvait apporter un ‘plus’ à ses 
clients s'en tiendra là. 


La firme de Cupertino laissera à d'autres, 
comme Dayna ou The Engineering 
Department, le soin d'implanter sur les 
ordinateurs à la pomme le système honni 
MS-Dos. On peut déjà prévoir trois 
étapes : 
+ la sortie d'un nouveau ‘Mac Charlie’ 
adaptable au Mac Plus, (il se 
présentera comme un chassis 
d'extensions ajouté au classique Mac 
Charlie) permettant de visualiser sur un 
écran supplémentaire les graphiques aux 
normes MS-Dos. Ce qui permettrait ainsi 
de faire tourner le “Flight Simulator” du 
PC sur le Macintosh (à quoi bon 
d'ailleurs, puisque la version Macintosh 
qui vient de sortir en France est sans 
concurrence ? Mais, il y a tant de 
sociétés qui exigent du Macintosh la 
sacro-sainte compatibilité IBM...) ; 
+ la sortie d'une carte installant dans un 
slot du nouvel Apple // un ordinateur 
MS-Dos en réduction (avec coprocesseur 
8086, contrôleur de disquettes, etc.) ; 
+ la même chose pour le nouveau Mac 
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modulaire. 


Le pari de 
la communication 


Plutôt que de s'aligner sur les systèmes, 
on préfère visiblement se réserver chez 
Apple le pari de profiter du chaos du 
marché de la communication. Puisque les 
données sont ce qu'il y a de plus 
précieux, il faut trouver le moyen de les 
échanger quel que soit le système et 
quelle que soit la machine. Connecter des 
ordinateurs entre eux, ce n'est pas très 
compliqué. Le problème commence avec 
les protocoles, l'interface et les 
structures. Sans parler des normes de 
transmission différentes en Europe et aux 
États-Unis. 


Voici pourquoi, et c'est une des plus 
importantes révélations de Gassée, des 
fonctions de télécommunications seront 
intégrées et disponibles en ressources, 
dans les systèmes d'exploitation des 
Macs et Apple //. Aujourd'hui, lorsqu'un 
programmeur veut créer une fenêtre dans 
un programme pour le Mac, il lui suffit 
d'insérer dans son programme une 
instruction appelant la routine de 
création de fenêtres inscrite en ROM. De 
la même façon, il suffira au programmeur 
d'un traitement de texte d'appeler les 
routines de communication pour créer un 
menu "Accès" permettant, par exemple, 
sans quitter le traitement de texte, de se 
connecter sur un serveur ou une base de 
données, d'ouvrir une fenêtre et d'y 
obtenir des informations qui pourront 
ensuite être intégrées par 
copier/couper/coller. Il s'agira de rendre 
plus facile et rapide, ce qu'on peut déjà 
réaliser sur le Mac avec des utilitaires 
comme Mock Terminal. Et, de la même 
façon, on pourra extraire des 
informations d'autres micro-ordinateurs. 
Ce progrès apportera aux Mac et autres 
Apple // un certain caractère 
‘multitâches’ : on pourra continuer à 
travailler sur le traitement de textes, 
pendant que les informations arriveront. 
Des perfectionnements qui prennent tout 
leur sel avec le réseau TOPS, décrit plus 
bas, permettant à des Mac et des IBM PC 
de partager fichiers et périphériques. 
Pour en avoir plus, il faudra attendre la 
nouvelle génération de systèmes se 
profilant après 1989 ou 1990. Avec une 
architecture du futur, permettant des 
traitements multiprocesseurs. Ces 
architectures, développées à l'aide du 
Cray MXP dont Apple s'est équipé, 
devront pour voir le jour permettre des 
améliorations de performances au moins 
10 à 20 fois supérieures aux systèmes 
d'aujourd'hui. Un tel changement jettera 
alors aux orties la compatibilité. Et 
bouleversera du même coup la puissance 
et le paysage de la micro-informatique. 
Mais on n'en est pas encore là... 





Extensions MacPlus : 
pénurie difficile 
à résorber 


En attendant toutes ces merveilles, il 
s'agit de résoudre des problèmes bien 
plus terre à terre. À commencer par la 
disponibilité des extensions Macintosh 
Plus. En juin, on avouait chez Apple 
qu'il faudrait six mois pour résoudre 
l'embouteillage de demandes. Si ce n'est 
pas un succès pour le Macintosh 
Plus... Les derniers servis auront 
pourtant la satisfaction de se dire que les 
ROM de leur MacPlus seront moins 
‘boguées’. En effet, l'un des problèmes 
du Macintosh Plus tient à des erreurs 
inscrites dans ses ROM. Ce qui provoque 
parfois des phénomènes bizarres : un 
utilisateur ayant acheté deux Macintosh 
Plus à quatre mois d'intervalles pouvait 
ainsi faire fonctionner le génial 
simulateur musical de lecteur de cassettes 
“Jam Session” sur le plus récent, mais 
n'obtenait que des bombes sur le plus 
ancien... Plus sérieusement, ce “bug” 
empêcherait sur certains Macintosh Plus 
l'utilisation du port SCSI. Les 
possesseurs de ces versions là ne s'en 
sont peut-être pas encore aperçus, car les 
périphériques SCSI ne sont pas encore 
légion, mais ça promet encore des 
tristesses à certains pour demain. 


Pour parer à ces ennuis (qui empêchaient 
aussi certains programmes comme 4e 
Dimension de tourner), Apple a corrigé 
ces erreurs par des ‘patches’ incorporés 
dans de nouvelles versions du système et 
du Finder. On en était ainsi en juillet à 
la version 5.3 du Finder, et à la 3.2c du 
Système (disquette Pom's 25). Pour la 
nouvelle imprimante Laserwriter Plus, ce 
sont des composants fournis par des 
sous-traitants qui se sont avérés 
défectueux et ont causé quelques ennuis à 
ses utilisateurs. Apple France attend 
sagement la résolution de tous ces 
problèmes pour l'importer chez nous. 
Dire que certains stratèges inconscients 
rêvent encore sans rire de développer les 
programmes les plus denses et les plus 
longs jamais réalisés pour les joujoux de 
la guerre des étoiles version Initiative de 
Défense Stratégique. 


Sur terre, et plus précisément dans la 
galaxie Apple, on continue à ne pas 
sombrer dans la monotonie. Avec des 
extensions, des disques durs et des 
programmes, comme s'il en pleuvait. 


Mémoire : jamais assez 


Le Macintosh Plus dispose en standard 
d'une mémoire vive d'un Mega-octet. 
Mais, elle peut être facilement quadruplée 
en remplaçant les barrettes contenant les 
“puces” de 256Kbits par des puces d'un 
Mega-bit. C'est un des arguments de 
vente d'Apple. Quand ? Quand ces super 
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puces seront disponibles à prix 
raisonnables. Ce n'est pas le cas, et 
d'après les spécialistes, il faudra encore 
patienter, car les puces d'un Mega ne 
sont encore fournies qu'en petites 
quantités et à prix importants. Mais, 
comme les utilisateurs de Macintosh 
sont des enfants gâtés, ils n'aiment pas 
patienter. Les constructeurs d'extension 
l'ont parfaitement compris et se battent 
pour offrir des extensions maisons. 
L'impatience n'a pas de prix... Chez P. 
Ingéniérie avec MacMega Plus et 
pour 9 369 Francs, on dispose de quatre 
barrettes de 512Ko (réalisées, c'est vrai 
avec une très belle technologie de 
montages de composants en surface). On 
trouve encore des extensions chez JCR, 
baptisées Megalot (7 240 Francs pour 
2 Megas). Aux États-Unis, on trouve 
déjà chez Micro Conversions des 
extensions (baptisées Plus'Plus) à 4 
Megas pour 1400 dollars. 


Stockage des données : 
toujours plus 


On vous l'avait dit : depuis que le Mac 
dispose d'une interface SCSI, les disques 
durs se bousculent à son connecteur. 
Mention particulière à ceux proposés par 
Pro App. : on peut les relier aussi bien 
à la prise lecteur d'un simple Mac, à la 
prise SCSI d'un Mac plus, qu'à un Apple 
Il. Et, en prime, ils servent de spoolers 
pour l'impression. Prix modérés : 995 
dollars pour 20 megas et 795 pour 10. 
Les prix baissent : le Paradise Mac 
20 importé par Micro Connection 
est ainsi disponible chez nous pour 
11 800 Francs. Alpha Systèmes 
importe les disques durs internes Micah 
(25309 Francs pour 20 Megas) et 
externes HD20 (17 671 Francs). Prix 
bien plus intéressant chez IEF qui vend 
son Mac Turbo disk interne de 20 
Megas pour 16 485 Francs. 


Crex Technology a développé le 
Turbo Line, un disque électronique (il 
s'agit en fait d'une mémoire vive qui 
reste en permanence alimentée) 
particulièrement rapide, car il n'y a pas 
d'accès disque. Prix : 5 930 Francs pour 
1 Mega, 11 480 Francs pour 3 Megas. 
Pour l'heure, le ruban bleu du disque dur 
est détenu par l'AST 4000 et ses 74 
Megas. Dommage que cette Rolls du 
stockage soit si chère : près de 70 000 
Francs. 

Une sauvegarde pour disque dur d'une 
capacité de 20 Mega-octets sur cassette 
numérique, le Storm 20 est proposée 
chez DIF électronic pour 19 600 
Francs. 


Réseaux : du nouveau 

Du disque dur au serveur de réseau, il n'y 
a parfois que l'épaisseur d'un logiciel. 
C'est le cas avec Asmodée d'ACI. Cet 


utilitaire, qui s'installe dans le menu € 
du Macintosh permet, à distance, et sous 
AppleTalk d'accéder aux fichiers stockés 
sur la disquette ou le disque dur d'un autre 
Macintosh. 


La grande nouveauté, en matière de 
réseaux, c'est TOPS, compatible avec 
AppleTalk, encore distribué par Micro 
Connection. La réponse à bien des 
problèmes d'incompatibilité, ce réseau 
local permet de faire partager des fichiers 
et des périphériques par des Macs, mais 
aussi des IBM PC ou compatibles. Pour 
un prix très raisonnable, car le coût de 
connection est de 2080 Francs par 
Macintosh et 5634 par PC ou 
compatible (il faut une carte). On n'a pas 
fini d'entendre parler de TOPS. 


Unix 

L'une des nouveautés annoncées par 
Jean-Louis Gassée, c'est l'adoption de 
systèmes sous Unix qui sera disponible 
dès 1987 pour le Macintosh. Pour cela, 
Apple a acheté la technologie 
développée par Cadmus. L'adoption 
d'Unix permettra d'implanter le futur Mac 
haute de gamme modulaire sur le marché 
de la station de travail scientifique. A 
remarquer un indice : Apple propose 
depuis peu aux États-Unis 
MacWorkStation. Un programme 
permettant de se relier à une unité 
centrale en éliminant l'émulation jusque 
là obligatoire des terminaux DEC VT 
100 ou IBM 3278, mais en conservant 
la facilité du Mac de ses menus et de ses 
fenêtres. Ce programme destiné à des 
non techniciens d'accéder aux 
programmes de l'unité centrale. Il 
comprend le source, le logiciel MacHost 
(source pour système d'exploitation Unix 
V et VMS) et une documentation. Sa 
licence d'utilisation dans un programme 
revient à 1500 dollars. 


Gestion de bases 
de données 


Controle X, qui a divorcé d'avec 
Version Soft, sort enfin CX 500, 
l'évolution relationnelle, multifichier et 
paramétrable de MacBase. J'attendrai 
d'avoir vu tourner la version définitive 
pour en dire plus. Soulat Frères 
importent Overvue 2. Cette version 
est particulièrement rapide et simple. 
Prix: 3320 Francs. Blyth Software 
a sorti une nouvelle version d'Omnis 3 
c'est Omnis 3 Plus. A noter que ce 
programme s'est tranquillement installé 
comme la meilleure base de données pour 
Mac (et aussi la plus sûre et la moins 
‘boguée’). Dans la nouvelle version, des 
champs pour des heures avec possibilité 
de calculs sur heure, des champs de texte 
pouvant comporter plusieurs lignes avec 
passage à la ligne automatique, la 
possibilité de créer des bandes de 


défilement pour passer rapidement à la 
fin des données, 60 nouvelles macros, la 
possibilité d'avoir des fichiers de 160 
Megas, la possibilité de lancer depuis 
Omnis d'autres programmes pour le Mac, 
des sauvegardes automatiques, etc. Omnis 
est importé en France par KA 
informatique. A remarquer enfin, 
l'amélioration de Filevision, l'un des 
premiers programmes pour le Mac, avec 
Business Filevision. Cette dernière 
version permet notamment l'importation 
de dessins de MacPaint, MacDraw, 
MacDraft, ou d'images numérisées, ainsi 
que le traitement graphique de données 
crées dans File, Omnis 3, Jazz, Excel, 
etc. 


Revoilà les intégrés 


Programmes intégrés, ou programmes 
reliés par switcher ? On se croirait 
revenu un an en arrière, au moment où la 
querelle faisait rage entre Lotus, qui avait 
sorti Jazz -son programme intégrant 
plusieurs applications- et Microsoft, 
sortant Excel, un programme intégrable. 
Les revoici tous deux en piste. 


Lotus sort la nouvelle version 1A de 
Jazz pour le Macintosh Plus. Vitesse 
accrue, capacité de traitement plus 
importante, sur disquette 800Ko. En 
prime, une sérieuse baisse : Jazz, ne 
coûte plus que 3 500 Francs. 


Microsoft, qui s'était affiché comme 
l'ennemi des intégrés, met la dernière 
main à MacWorks. La revue 
britannique Practical Computing a 
pu mettre la main sur une version de test 
et la... tester. Conclusions : une base de 
données semblable à File, mais sans 
possibilité d'y incorporer des 
graphiques, un programme de 
communications simple, un tableur 
puissant (9999 rangées sur 255 
colonnes) mais limité, avec 50 
fonctions, et la possibilité de convertir 
les chiffres en graphiques (mais avec peu 
de types de graphiques), et surtout un 
très bon traitement de texte avec 
notamment la possibilité d'y dessiner 
des lignes, des cercles, des carrés. On 
peut aussi y concevoir des documents 
plus larges que l'écran, qui seront 
imprimés en largeur, récupérer des 
documents MacWrite, etc. MacWorks 
devrait être vendu moins de 300 dollars 
aux États-Unis. 


Des traitements 
de texte en pagaille 


La décision d'Apple de ne plus livrer 
systématiquement MacWrite avec le Mac 
continue à susciter la création de 
traitement de texte. Microsoft se 
prépare aussi à sortir une nouvelle 
version de Word, avec correcteur 
d'orthographe incorporé, traitement 





72 


Pom's n° 25 





d'idées style Think Tank, lui aussi 
incorporé, génération automatique 
d'index et de tables des matières, etc. En 
France, ACI lancera à la rentrée Writer 
Plus. Un traitement de texte multi- 
fenêtres, permettant de réaliser des 
mailings, avec plusieurs colonnes, 
césure et indexation automatiques. Mac 
Author, le traitement de texte avec 
feuilles de style, possibilité d'amalgamer 
les graphiques au texte, espacement 
réglable, etc. dont j'avais parlé dans 
cette rubrique est maintenant importé 
chez nous par Italsoft. Prix : 2312 
Francs. 


Aux États-Unis, on trouve chez Icon 
Review, le traitement de texte 
MultiWrite, un MacWrite 
multi-fenêtres intégrant un traitement 
d'idées, un compteur de caractères, etc. 
pour 80 dollars. 


Nouveauté d'importance, Think Tank 
de Living Videotext a désormais un 
successeur. C'est More. Il offre en plus 
la possibilité d'illustrer graphiquement le 
cheminement des idées par des ‘arbres’ 
Le programme comprend aussi un 
calculateur intégré additionnant les 
nombres entrés. Si ce programme, qui 
sera vendu 300 dollars, est aussi 
révolutionnaire que l'avait été, en son 
temps, Think Tank, ça promet. 


Editique 

C'est le nouveau nom, pas très beau, 
pour traduire ce que les Américains 
appellent Desktop publishing, et qui est 
en fait de l'édition électronique. C'est 
toujours la grande mode pour le 
Macintosh. Concept Publishing 
Systems a sorti Adnet. Le système 
complet comprend un Macintosh équipé 
d'un disque dur interne de 10 Megas, et 
spécialement configuré, une tablette 
graphique et une LaserWriter. Prix : 
17000 dollars. 


Plus abordable, Glue de Solutions 
Inc. offre pour 49 dollars la possibilité 
de transférer facilement dans 
PageMaker ou Ready Set Go des 
graphiques créés dans Excel ou Jazz. 
Ces images peuvent être rappelées et 
transférées dans le programme d'édition 
par couper/coller. Précisément, une 
nouvelle version -la 3.0- de Ready Set 
Go est en préparation avec possibilité 
de travailler sur plusieurs documents, 
nombre de pages accru, et automatisation 
de certaines fonctions de conception de 
documents. 


Un drink ? 


On a pu apprécier, dans la chaleur 
d'Apple Expo, Mac Drink sur le stand 
de Micro Valley. Le logiciel 
AutoMac de Pro Forma pilotant un 
Mac relié à des bouteilles permettait de 


doser des cocktails. L'ensemble est 
sérieux. Ïl se compose d'un Mac, d'un 
Apple II sans lecteurs, et de cartes 
interface. Le logiciel est écrit en Prolog 
IA. Il permet de commander des 
expériences de chimie, électricité, 
robotique et de piloter un système à 
électro vannes, un bras articulé, ou... un 
train électrique. Une telle débauche 
technologique pour un train électrique, 
c'est un peu de l'overkill, non ? 


Côté Apple // 


Alpha Systèmes importe une série de 
nouveautés pour l'Apple //. Parmi elles : 
Kyan, un Pascal sous Prodos avec 
facilités d'utilisation comparables à 
Unix, routines graphiques, etc. pour 
1234 Francs ; Unimate, un logiciel 
pour lecteur de 800Ko permettant 
d'utiliser ce lecteur avec le DOS 33, le 
Pascal et le CPM pour 580 Francs ; et la 
carte Checkmate avec processeur 16 
bits 65C816 pour 3 150 Francs. 

Apple distribue Extasie, un logiciel 
de dessin permettant de mélanger dans 
une même image les 16 couleurs 
disponibles et la très haute résolution 
graphique noir et blanc de 560 points 
par ligne. On peut y construire des 
rectangles et ellipses, on dispose d'une 
loupe, d'un aérographe, les sorties 
peuvent s'effectuer en couleurs sur une 
imprimante Imagewriter IL. Prix : 699 
Francs. 


Citizen, distribué par Geveke, a 
conçu une interface permettant de relier 
une de ses imprimantes (souvent bon 
marché) à un Apple //. Prix : 1 000 
Francs. 


Beagle Bros, un des pionniers de la 
programmation pour Apple //, a 
développé Macro Works, un ensemble 
d'améliorations pour Appleworks 
comprenant notamment des macros, la 
possibilité d'impression en colonne, etc. 
Prix : 35 dollars. 


Et des traitements 
de texte 


Multi Scribe de Styleware est un 
traitement de texte utilisant la double 
haute résolution graphique, très 
semblable à MacWrite pour le Mac. 
Comprenant même un éditeur de 
caractères. Prix 60 dollars. 


L'un des ancêtres des traitements de texte 
pour le //, Format 80 d'Elite 
Software peut maintenant incorporer 
des formules mathématiques. Grâce à 
Format 80 Scientific. 


Toujours IBM 


Cette fois, c'est le //e qui peut lire et 
écrire des fichiers compatibles IBM 
grâce à une carte baptisée Envoy, et 
conçue par Asky aux États-Unis. La 





carte peut contrôler les lecteurs 5 pouces 
1/4 et 3 pouces 1/2 Apple, mais aussi 
des lecteurs IBM, y compris celui de 1,2 
Megas de l'AT. En reliant un lecteur 
compatible IBM à l'Apple, et grâce à un 
logiciel de conversion, on obtient des 
fichiers pouvant être relus sur un IBM. 
Le prix de la carte n'est que de 180 
dollars, avec le logiciel, mais sans le 
lecteur IBM. Selon ses promoteurs, le 
système permet ainsi à des employés 
d'une société d'emporter chez eux des 
disquettes de données IBM et de les relire 
et les retravailler chez eux sur leur 
Apple. Alleluia! 


Rectification 


Dans le dernier numéro de Pom's, il 
fallait bien évidemment lire Pixel 
Studio, à la place de Mac Palette. 
Pixel Studio, c'est bien le nom de 
l'ensemble graphique couleur pour le 
Mac. 


Adresses 


Alpha Systèmes - 29, Bd Gambetta 
38000 Grenoble - Tél. : 76 43 19 97 
P.Ingénierie - 226, Bd Raspail 
75006 Paris - Tél.: 43 21 93 36 
JCR - 58, rue Notre Dame de Lorette 
75009 Paris - Tél. : 42 82 19 80 

Pro App - 1475 S. Bascom Avenue 
Campbell CA 95008 

Micro Connection 

103/105, rue du Château 

92100 Boulogne - Tél. : 48 25 83 83 
IEF - 217, quai Stalingrad 

92130 Issy les Moulineaux 

Tél. : 45 57 14 14 

Crex Technology - 34, rue Poncelet 
75017 Paris - Tél. : 42 67 80 46 

DIF Electronic 

94, Bd du Montparnasse 

75014 Paris - Tél. : 43 21 43 65 

ACI - 6, avenue Franklin Roosevelt 
75008 Paris - Tél. : 43 59 89 55 
Soulat Frères 

45/47, rue de la division Leclerc 
94250 Gentilly - Tél. : 47 40 00 20 
Italsoft - 14, rue Vauvenargues 
75018 Paris 

Icon Review 

PO Box 2566 Monterey 

CA 93942 

Concept Publishing System 
126 Monroe St Beaver Dam - WI 53916 
Pro-Forma - 14, rue Martel 

75010 Paris - Tél. : 45 23 25 05 
Geveke Electronique 

2 à 18 rue des Peupliers 

92000 Nanterre - Tél. : 47 80 96 96 
Beagle Bros 

3990 Old Town Avenue 

San Diego CA 92110 

Styleware - 6405 Hillcroft Suite 
201 Houston Texas 77081 

Elite Software 

4 Hawthylands Drive, Haïlsham co 
East Susssex BN271HE, UK 
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Bon de commande 


Disquettes 


(cf. Pom's n° 5) 

(cf. Pom's n° 8) 

(cf. Pom's n° 10) 

(cf. Pom's n° 11) 
(cf. Pom's n° 13) 150,00 F 
(cf. Pom's n° 23) 200,00 F 
chante PR SR. res (cf. Pom's n° 23) 80,00 F 
PASCAL (cf. Pom's n° 15) 80,00 F 
MAX (Moniteur étendu) (cf. Pom's n° 18) 150,00 F 
DOMINOS (cf. Pom's n° 19) 80,00 F 
(cf. Pom's n° 21) 200,00 F 
(cf. Pom's n° 21) 150,00 F 
(cf. page 8) 80,00 F 


Recueils 


N°1, recueil des revues 1 à 4 
Disquettes d'accompagnement 1 à 4 
N°2, recueil des revues 5 à 8 
Disquettes d'accompagnement 5 à 8 
N°3, recueil des revues 9 à 12 
Disquettes d'accompagnement 9 à 12 


140,00 F 
200,00 F 
140,00 F 
200,00 F 
140,00 F 
-200,00 F 


Revues, disquettes 


Revues4 7 8 (n°9 épuisé) 35,00 F 
Revues 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 40,00 F 


Disquettes Apple II, //e, //c 
17223,.4 5, 6 T1 379 "10 11200 60,00 F 
141516" 1718 19920! 212223924825 


Disquettes Macintosh 
14/15/16 groupées 150,00 F 
1180 1920821.22-23) 74025 80,00 F 
Mac ‘A’ 80,00 F 


MacAstuces 200,00 F 
“Raccourci” 200,00 F 


Abonnements Pour 6 numéros à partir du …1___| 


Abonnement à la revue seule 200,00 F 
Abonnement revue + disquettes Apple II, //e, //e 500,00 F 
Abonnement revue + disquettes Macintosh 600,00 F 


Total TTC : 
Supplément avion hors CEE : 15,00F par numéro et/ou disquette : 


Montant du règlement : 


Envoyez ce bon et votre règlement à : EDITIONS MEV, 64 rue des Chantiers 78000 VERSAILLES 
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Programmes, Trucs, Astuces, Initiation 


Apple ][+, //e, /le+, 1Ic 





Basic, Pascal, Assembleur... 








